diff options
| author | Karl Heuer | 1994-06-15 03:55:42 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-06-15 03:55:42 +0000 |
| commit | 5cb0a75ace19d6ded8c0f7553d8268ec236b7c5a (patch) | |
| tree | 2be9ca581f376fcc2203a927a559ab088919c4c7 | |
| parent | 565620a54d14465fe7c2fe912a41eb7a36d93d10 (diff) | |
| download | emacs-5cb0a75ace19d6ded8c0f7553d8268ec236b7c5a.tar.gz emacs-5cb0a75ace19d6ded8c0f7553d8268ec236b7c5a.zip | |
(mouse-drag-region): Bind last-command, not this-command.
| -rw-r--r-- | lisp/mouse.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 252 | (if (memq fun '(mouse-set-region mouse-set-point)) | 252 | (if (memq fun '(mouse-set-region mouse-set-point)) |
| 253 | (if (not (= (overlay-start mouse-drag-overlay) | 253 | (if (not (= (overlay-start mouse-drag-overlay) |
| 254 | (overlay-end mouse-drag-overlay))) | 254 | (overlay-end mouse-drag-overlay))) |
| 255 | (let (this-command) | 255 | (let (last-command) |
| 256 | (push-mark (overlay-start mouse-drag-overlay) t t) | 256 | (push-mark (overlay-start mouse-drag-overlay) t t) |
| 257 | (goto-char (overlay-end mouse-drag-overlay)) | 257 | (goto-char (overlay-end mouse-drag-overlay)) |
| 258 | (copy-region-as-kill (point) (mark t))) | 258 | (copy-region-as-kill (point) (mark t))) |