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

add a missing add-hook 

Ignore-this: 2f586cf13c72cacb438f911cdeff19b0

darcs-hash:20120202224528-c41ad-8e638a91d8c04073bebf805451e3c9d019016e6a
This commit is contained in:
Jeremie Dimino 2012-02-02 23:45:28 +01:00
parent ed24214af0
commit a877bb1028
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/emacs/utop.el
View File

@ -162,7 +162,8 @@ before the end of prompt.")
(add-hook 'post-command-hook 'utop-add-change nil t)
(utop-cannot-edit))
((< stop utop-prompt-max)
(utop-cannot-edit "You cannot edit this part of the buffer")))))
(add-hook 'post-command-hook 'utop-add-change nil t)
(signal 'text-read-only '("You cannot edit this part of the buffer"))))))
(defun utop-add-change ()
(remove-hook 'post-command-hook 'utop-add-change t)