From 72166f2f3dba18f1217c666574032f5a0351ed65 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Tue, 3 May 2016 08:38:49 +0200 Subject: [PATCH] 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) --- lisp/wid-edit.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2