# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803277464 0
# Node ID 29b6db1800478b110d16bdd8fd7fbd821fef152f
# Parent  e50e5d419c51aca4a3199f3782a540cf5db4e9b2
(mouse-set-region): Bind last-command with this-command.

diff -r e50e5d419c51 -r 29b6db180047 lisp/mouse.el
--- 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)))