From c2ef83b42442f1ffd056b9bc312cf355fb2aaaeb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 13 Aug 1995 15:46:10 +0000 Subject: [PATCH] (mouse-drag-region): Unread the up-event rather than execute it here. --- lisp/mouse.el | 5 +++-- 1 file 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) -- 2.39.2