# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 808328770 0
# Node ID a6bcb05681218163fcd10397cf8d84db2a21bdd9
# Parent  4948ca294167784f4a02ad3d61bc784256289d6f
(mouse-drag-region): Unread the up-event rather than execute it here.

diff -r 4948ca294167 -r a6bcb0568121 lisp/mouse.el
--- 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)