Mercurial > emacs

diff lisp/mouse.el @ 7901:28f9608f3c58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-drag-region): Bind last-command, not this-command.
author Karl Heuer <kwzh@gnu.org>
date Wed, 15 Jun 1994 03:55:42 +0000
parents 44680acb5d14
children ac4b606bcfa2
line wrap: on
line diff
--- 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)))