diff options
| author | Richard M. Stallman | 2004-10-16 15:30:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-10-16 15:30:56 +0000 |
| commit | f9c8b7ae61365bbe5e6fc1d9ea8e9245325519bd (patch) | |
| tree | 845ff3bbf7063a9c40c00dba77f87e6e7a5091ab | |
| parent | 991b32c3f32701910dcecf242b98543596e53ed1 (diff) | |
| download | emacs-f9c8b7ae61365bbe5e6fc1d9ea8e9245325519bd.tar.gz emacs-f9c8b7ae61365bbe5e6fc1d9ea8e9245325519bd.zip | |
(mouse-yank-at-click, mouse-yank-secondary):
Use * to err if buffer is readonly.
| -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. | |||
| 1097 | Prefix arguments are interpreted as with \\[yank]. | 1097 | Prefix arguments are interpreted as with \\[yank]. |
| 1098 | If `mouse-yank-at-point' is non-nil, insert at point | 1098 | If `mouse-yank-at-point' is non-nil, insert at point |
| 1099 | regardless of where you click." | 1099 | regardless of where you click." |
| 1100 | (interactive "e\nP") | 1100 | (interactive "*e\nP") |
| 1101 | ;; Give temporary modes such as isearch a chance to turn off. | 1101 | ;; Give temporary modes such as isearch a chance to turn off. |
| 1102 | (run-hooks 'mouse-leave-buffer-hook) | 1102 | (run-hooks 'mouse-leave-buffer-hook) |
| 1103 | (or mouse-yank-at-point (mouse-set-point click)) | 1103 | (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." | |||
| 1399 | Move point to the end of the inserted text. | 1399 | Move point to the end of the inserted text. |
| 1400 | If `mouse-yank-at-point' is non-nil, insert at point | 1400 | If `mouse-yank-at-point' is non-nil, insert at point |
| 1401 | regardless of where you click." | 1401 | regardless of where you click." |
| 1402 | (interactive "e") | 1402 | (interactive "*e") |
| 1403 | ;; Give temporary modes such as isearch a chance to turn off. | 1403 | ;; Give temporary modes such as isearch a chance to turn off. |
| 1404 | (run-hooks 'mouse-leave-buffer-hook) | 1404 | (run-hooks 'mouse-leave-buffer-hook) |
| 1405 | (or mouse-yank-at-point (mouse-set-point click)) | 1405 | (or mouse-yank-at-point (mouse-set-point click)) |