diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-16 04:37:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-16 04:37:44 +0000 |
| commit | 345d614fa1501c992e890c3852d394bdc835d9bd (patch) | |
| tree | b07d5e5d42331897e5399ed5c3689a6cc419b123 /lisp/mouse.el | |
| parent | a1a946841025e79de45eb89dd159ff9136ed3a43 (diff) | |
| download | emacs-345d614fa1501c992e890c3852d394bdc835d9bd.tar.gz | |
(mouse-set-region): Bind last-command with this-command.
Diffstat (limited to 'lisp/mouse.el')
| -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." (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))) |