diff options
| author | Richard M. Stallman | 1995-06-16 04:37:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-16 04:37:44 +0000 |
| commit | 91a6bc102efbb97df539f48895a97ee75ecb357d (patch) | |
| tree | 2d3a15ea4d50df8a0cb9adc0a0747acb8d43b1ef | |
| parent | 09843b4a110fd3c9d59d89727436ead1171e6948 (diff) | |
| download | emacs-91a6bc102efbb97df539f48895a97ee75ecb357d.tar.gz emacs-91a6bc102efbb97df539f48895a97ee75ecb357d.zip | |
(mouse-set-region): Bind last-command with this-command.
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index bdaf3c28962..46fb5343cf5 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -325,7 +325,8 @@ This should be bound to a mouse drag event." | |||
| 325 | (goto-char (posn-point end))) | 325 | (goto-char (posn-point end))) |
| 326 | ;; Don't set this-command to kill-region, so that a following | 326 | ;; Don't set this-command to kill-region, so that a following |
| 327 | ;; C-w will not double the text in the kill ring. | 327 | ;; C-w will not double the text in the kill ring. |
| 328 | (let (this-command) | 328 | ;; Ignore last-command so we don't append to a preceding kill. |
| 329 | (let (this-command last-command) | ||
| 329 | (copy-region-as-kill (mark) (point))) | 330 | (copy-region-as-kill (mark) (point))) |
| 330 | (mouse-set-region-1))) | 331 | (mouse-set-region-1))) |
| 331 | 332 | ||