From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 15 Jun 1994 03:55:42 +0000 (+0000)
Subject: (mouse-drag-region): Bind last-command, not this-command.
X-Git-Tag: emacs-19.34~7952
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5cb0a75ace19d6ded8c0f7553d8268ec236b7c5a;p=emacs.git

(mouse-drag-region): Bind last-command, not this-command.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index b447bff5dbe..5d4dea37c70 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -252,7 +252,7 @@ release the mouse button.  Otherwise, it does not."
 	    (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)))