(mouse-drag-region): Modify previous change--don't run the ordinary binding

in the case of a multiple click.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index c730f8a929f6060aa9d65c94050858080ab217a6..48ec86079a3ae196a5fa01267c52dcb9a0a2d4c2 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -414,7 +414,10 @@ release the mouse button.  Otherwise, it does not."
                                     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)))