(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 b73967b99dccf2abef8956c348da81dcfd9534e4..0a6499e5c099e1321629ca6e8f08828630a37fb3 100644 (file)
--- 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))