From 5cb0a75ace19d6ded8c0f7553d8268ec236b7c5a Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 15 Jun 1994 03:55:42 +0000 Subject: [PATCH] (mouse-drag-region): Bind last-command, not this-command. --- lisp/mouse.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.39.5