# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773282977 0
# Node ID 1f57b34ade27c7966c3006f2c5cc404b3d9b9b3f
# Parent  7b7bb255393e3794e5c187de8a8982178853a331
(mouse-drag-region): Bind this-command like last-command.
(mouse-kill-ring-save): Bind this-command and last-command.

diff -r 7b7bb255393e -r 1f57b34ade27 lisp/mouse.el
--- a/lisp/mouse.el	Sun Jul 03 22:16:34 1994 +0000
+++ b/lisp/mouse.el	Mon Jul 04 00:49:37 1994 +0000
@@ -258,7 +258,7 @@
 	  (let ((fun (key-binding (vector (car event)))))
 	    (if (not (= (overlay-start mouse-drag-overlay)
 			(overlay-end mouse-drag-overlay)))
-		(let (last-command)
+		(let (last-command this-command)
 		  (push-mark (overlay-start mouse-drag-overlay) t t)
 		  (goto-char (overlay-end mouse-drag-overlay))
 		  (copy-region-as-kill (point) (mark t)))
@@ -390,7 +390,8 @@
 This does not delete the region; it acts like \\[kill-ring-save]."
   (interactive "e")
   (mouse-set-mark-fast click)
-  (kill-ring-save (point) (mark t))
+  (let (this-command last-command)
+    (kill-ring-save (point) (mark t)))
   (mouse-show-mark))
 
 ;;; This function used to delete the text between point and the mouse