From: Martin Rudalics <rudalics@gmx.at>
Date: Tue, 3 May 2016 06:38:49 +0000 (+0200)
Subject: Bind `widget-button-click' to mouse-1/-2 instead of down-mouse-1/-2
X-Git-Tag: emacs-26.0.90~2005
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72166f2f3dba18f1217c666574032f5a0351ed65;p=emacs.git

Bind `widget-button-click' to mouse-1/-2 instead of down-mouse-1/-2

* lisp/wid-edit.el (widget-keymap): Bind `widget-button-click'
to mouse-1/-2 instead of down-mouse-1/-2.  Suggested by Stefan
Monnier.  (Bug#19185, Bug#20398)
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index f0054be4c8b..0a0f4582b32 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -852,8 +852,8 @@ button end points."
     (define-key map [(shift tab)] 'widget-backward)
     (put 'widget-backward :advertised-binding [(shift tab)])
     (define-key map [backtab] 'widget-backward)
-    (define-key map [down-mouse-2] 'widget-button-click)
-    (define-key map [down-mouse-1] 'widget-button-click)
+    (define-key map [mouse-2] 'widget-button-click)
+    (define-key map [mouse-1] 'widget-button-click)
     ;; The following definition needs to avoid using escape sequences that
     ;; might get converted to ^M when building loaddefs.el
     (define-key map [(control ?m)] 'widget-button-press)