From bfbcf12e477d634d42a8d739b403ebfd536ddfb8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 26 Jan 1995 03:18:45 +0000 Subject: [PATCH] (mouse-drag-region): Modify previous change--don't run the ordinary binding in the case of a multiple click. --- lisp/mouse.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index c730f8a929f..48ec86079a3 100644 --- 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))) -- 2.39.5