mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-02 21:52:04 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-set-region): Bind last-command with this-command.

Browse source
This commit is contained in:
Richard M. Stallman 1995-06-16 04:37:44 +00:00
parent 09843b4a11
commit 91a6bc102e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/mouse.el
View file

@ -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)))