add a missing add-hook
Ignore-this: 2f586cf13c72cacb438f911cdeff19b0 darcs-hash:20120202224528-c41ad-8e638a91d8c04073bebf805451e3c9d019016e6a
This commit is contained in:
parent
ed24214af0
commit
a877bb1028
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue