haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix a stickiness bug 

Ignore-this: 4b2a158defc5fb13e0a514bd9686cba3

darcs-hash:20110728160332-c41ad-9ff458ad48a7063c350127e1032dfaff25d09f74
This commit is contained in:
Jeremie Dimino 2011-07-28 18:03:32 +02:00
parent e0c1b131a3
commit 5426f83657
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/utop.el
View File

@ -277,9 +277,7 @@ sub-process."
(remove-text-properties utop-prompt-min utop-prompt-max '(rear-nonsticky nil))) (remove-text-properties utop-prompt-min utop-prompt-max '(rear-nonsticky nil)))
;; Makes the text sent read only and add it the frozen face. ;; Makes the text sent read only and add it the frozen face.
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(utop-add-text-properties-rear-nonsticky start stop (add-text-properties start stop '(read-only t face utop-frozen)))
'(read-only t face utop-frozen)
'(face read-only)))
;; Move the prompt to the end of the buffer ;; Move the prompt to the end of the buffer
(setq utop-prompt-min stop) (setq utop-prompt-min stop)
(setq utop-prompt-max stop) (setq utop-prompt-max stop)