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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index bdaf3c28962b0c558582502fbb0637d0abeadb90..46fb5343cf5a53888d2a5dbb7575d3d88a5d71a2 100644 (file)
--- 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)))