From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 Oct 2004 15:30:56 +0000 (+0000)
Subject: (mouse-yank-at-click, mouse-yank-secondary):
X-Git-Tag: ttn-vms-21-2-B4~4545
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9c8b7ae61365bbe5e6fc1d9ea8e9245325519bd;p=emacs.git

(mouse-yank-at-click, mouse-yank-secondary):
Use * to err if buffer is readonly.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index b73967b99dc..0a6499e5c09 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1097,7 +1097,7 @@ and set mark at the beginning.
 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 @@ The function returns a non-nil value if it creates a secondary selection."
 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))