# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 771652542 0
# Node ID 28f9608f3c58f51f2580ce22874b12f7c293028c
# Parent  60795e826dad33dbcdffe7343ed6ff90e27c6b89
(mouse-drag-region): Bind last-command, not this-command.

diff -r 60795e826dad -r 28f9608f3c58 lisp/mouse.el
--- a/lisp/mouse.el	Wed Jun 15 03:54:06 1994 +0000
+++ b/lisp/mouse.el	Wed Jun 15 03:55:42 1994 +0000
@@ -252,7 +252,7 @@
 	    (if (memq fun '(mouse-set-region mouse-set-point))
 		(if (not (= (overlay-start mouse-drag-overlay)
 			    (overlay-end mouse-drag-overlay)))
-		    (let (this-command)
+		    (let (last-command)
 		      (push-mark (overlay-start mouse-drag-overlay) t t)
 		      (goto-char (overlay-end mouse-drag-overlay))
 		      (copy-region-as-kill (point) (mark t)))