Mercurial > emacs
changeset 12257:29b6db180047
(mouse-set-region): Bind last-command with this-command.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 16 Jun 1995 04:37:44 +0000 |
| parents | e50e5d419c51 |
| children | 95ebca0a74d8 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Fri Jun 16 04:36:55 1995 +0000 +++ b/lisp/mouse.el Fri Jun 16 04:37:44 1995 +0000 @@ -325,7 +325,8 @@ (goto-char (posn-point end))) ;; Don't set this-command to kill-region, so that a following ;; C-w will not double the text in the kill ring. - (let (this-command) + ;; Ignore last-command so we don't append to a preceding kill. + (let (this-command last-command) (copy-region-as-kill (mark) (point))) (mouse-set-region-1)))