changeset 57524:7eb69809590b

(mouse-yank-at-click, mouse-yank-secondary): Use * to err if buffer is readonly.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 Oct 2004 15:30:56 +0000
parents a2d6c6e6486a
children c2b32641aa8c
files lisp/mouse.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Sat Oct 16 15:29:46 2004 +0000
+++ b/lisp/mouse.el	Sat Oct 16 15:30:56 2004 +0000
@@ -1097,7 +1097,7 @@
 Prefix arguments are interpreted as with \\[yank].
 If `mouse-yank-at-point' is non-nil, insert at point
 regardless of where you click."
-  (interactive "e\nP")
+  (interactive "*e\nP")
   ;; Give temporary modes such as isearch a chance to turn off.
   (run-hooks 'mouse-leave-buffer-hook)
   (or mouse-yank-at-point (mouse-set-point click))
@@ -1399,7 +1399,7 @@
 Move point to the end of the inserted text.
 If `mouse-yank-at-point' is non-nil, insert at point
 regardless of where you click."
-  (interactive "e")
+  (interactive "*e")
   ;; Give temporary modes such as isearch a chance to turn off.
   (run-hooks 'mouse-leave-buffer-hook)
   (or mouse-yank-at-point (mouse-set-point click))