diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-13 15:46:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-13 15:46:10 +0000 |
| commit | c2ef83b42442f1ffd056b9bc312cf355fb2aaaeb (patch) | |
| tree | b73a1f1b573adeae1bb9ef1d05fc470b759af914 | |
| parent | 135c9ca6b8791b79c46ac76c6da5c16868c534e2 (diff) | |
| download | emacs-c2ef83b42442f1ffd056b9bc312cf355fb2aaaeb.tar.gz | |
(mouse-drag-region): Unread the up-event rather than execute it here.
| -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 a52d0d14213..d70d40d7de5 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -449,12 +449,13 @@ release the mouse button. Otherwise, it does not." ;; 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) |