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." ...@@ -252,7 +252,7 @@ release the mouse button. Otherwise, it does not."
(if (memq fun '(mouse-set-region mouse-set-point)) (if (memq fun '(mouse-set-region mouse-set-point))
(if (not (= (overlay-start mouse-drag-overlay) (if (not (= (overlay-start mouse-drag-overlay)
(overlay-end mouse-drag-overlay))) (overlay-end mouse-drag-overlay)))
(let (this-command) (let (last-command)
(push-mark (overlay-start mouse-drag-overlay) t t) (push-mark (overlay-start mouse-drag-overlay) t t)
(goto-char (overlay-end mouse-drag-overlay)) (goto-char (overlay-end mouse-drag-overlay))
(copy-region-as-kill (point) (mark t))) (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