From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 13 Aug 1995 15:46:10 +0000 (+0000)
Subject: (mouse-drag-region): Unread the up-event rather than execute it here.
X-Git-Tag: emacs-19.34~3016
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c2ef83b42442f1ffd056b9bc312cf355fb2aaaeb;p=emacs.git

(mouse-drag-region): Unread the up-event rather than execute it here.
---

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)