From f9c8b7ae61365bbe5e6fc1d9ea8e9245325519bd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Oct 2004 15:30:56 +0000 Subject: [PATCH] (mouse-yank-at-click, mouse-yank-secondary): Use * to err if buffer is readonly. --- lisp/mouse.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))