diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-04 00:49:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-04 00:49:37 +0000 |
| commit | bcb021bc1eb0c86707247ec23bd94d6ac39ce450 (patch) | |
| tree | f8f947950716ae8d57ee59ceec9773d7e3097caa /lisp | |
| parent | e026ffd4266d6f9b4fe863b640a78c166535d1c6 (diff) | |
| download | emacs-bcb021bc1eb0c86707247ec23bd94d6ac39ce450.tar.gz | |
(mouse-drag-region): Bind this-command like last-command.
(mouse-kill-ring-save): Bind this-command and last-command.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mouse.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index c10dad11572..6bc7259e6e0 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -258,7 +258,7 @@ release the mouse button. Otherwise, it does not." (let ((fun (key-binding (vector (car event))))) (if (not (= (overlay-start mouse-drag-overlay) (overlay-end mouse-drag-overlay))) - (let (last-command) + (let (last-command this-command) (push-mark (overlay-start mouse-drag-overlay) t t) (goto-char (overlay-end mouse-drag-overlay)) (copy-region-as-kill (point) (mark t))) @@ -390,7 +390,8 @@ regardless of where you click." This does not delete the region; it acts like \\[kill-ring-save]." (interactive "e") (mouse-set-mark-fast click) - (kill-ring-save (point) (mark t)) + (let (this-command last-command) + (kill-ring-save (point) (mark t))) (mouse-show-mark)) ;;; This function used to delete the text between point and the mouse |