Mercurial > emacs
changeset 12844:a6bcb0568121
(mouse-drag-region): Unread the up-event rather than execute it here.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 13 Aug 1995 15:46:10 +0000 |
| parents | 4948ca294167 |
| children | 9ee2045cda62 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Sun Aug 13 05:10:20 1995 +0000 +++ b/lisp/mouse.el Sun Aug 13 15:46:10 1995 +0000 @@ -449,12 +449,13 @@ ;; In the case of a multiple click, it gives the wrong results, ;; because it would fail to set up a region. (if (and (= (mod mouse-selection-click-count 3) 0) (fboundp fun)) + ;; In this case, we can just let the up-event execute normally. (progn - (setq this-command fun) ;; Delete the overlay before calling the function, ;; because delete-overlay increases buffer-modified-tick. (delete-overlay mouse-drag-overlay) - (funcall fun event)) + (setq unread-command-events + (cons event unread-command-events))) (if (not (= (overlay-start mouse-drag-overlay) (overlay-end mouse-drag-overlay))) (let (last-command this-command)