# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1097940656 0
# Node ID 7eb69809590b5695a0e21fc3867ad50b2730def8
# Parent  a2d6c6e6486a1b1a3eaeb91605467a9cdc14b515
(mouse-yank-at-click, mouse-yank-secondary):
Use * to err if buffer is readonly.

diff -r a2d6c6e6486a -r 7eb69809590b lisp/mouse.el
--- 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))