diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-10-16 15:30:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-10-16 15:30:56 +0000 |
| commit | f9c8b7ae61365bbe5e6fc1d9ea8e9245325519bd (patch) | |
| tree | 845ff3bbf7063a9c40c00dba77f87e6e7a5091ab /lisp/mouse.el | |
| parent | 991b32c3f32701910dcecf242b98543596e53ed1 (diff) | |
| download | emacs-f9c8b7ae61365bbe5e6fc1d9ea8e9245325519bd.tar.gz | |
(mouse-yank-at-click, mouse-yank-secondary):
Use * to err if buffer is readonly.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files 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)) |