Commit 5cb0a75a authored by Karl Heuer's avatar Karl Heuer

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

parent 565620a5
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment