diff --git a/lisp/mouse.el b/lisp/mouse.el index b447bff5dbec9b88c1cd25a8dec60681ce51dbf9..5d4dea37c70d2630b425c411520ff62ba091df7b 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)))