# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 791090325 0
# Node ID f5f5c52de2e46ea819f38b0db10c7d0498161cad
# Parent  3092c83a8a9d8c94d4eaa1642e83ad4f693d0e7c
(mouse-drag-region): Modify previous change--don't run the ordinary binding
in the case of a multiple click.

diff -r 3092c83a8a9d -r f5f5c52de2e4 lisp/mouse.el
--- a/lisp/mouse.el	Thu Jan 26 02:37:30 1995 +0000
+++ b/lisp/mouse.el	Thu Jan 26 03:18:45 1995 +0000
@@ -414,7 +414,10 @@
 				     mouse-drag-overlay start-point)))))))))
       (if (consp event)
 	  (let ((fun (key-binding (vector (car event)))))
-	    (if (fboundp fun)
+	    ;; Run the binding of the terminating up-event, if possible.
+	    ;; 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))
 		(funcall fun event)
 	      (if (not (= (overlay-start mouse-drag-overlay)
 			  (overlay-end mouse-drag-overlay)))