diff options
| author | Martin Rudalics | 2016-05-03 08:38:49 +0200 |
|---|---|---|
| committer | Martin Rudalics | 2016-05-03 08:38:49 +0200 |
| commit | 72166f2f3dba18f1217c666574032f5a0351ed65 (patch) | |
| tree | 6a737ff3bd3163a6421050f4cd8f2bd880ebf9a1 | |
| parent | 3a21ea15aecf7af8237c53dfafdc07650a09be3f (diff) | |
| download | emacs-72166f2f3dba18f1217c666574032f5a0351ed65.tar.gz emacs-72166f2f3dba18f1217c666574032f5a0351ed65.zip | |
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)
| -rw-r--r-- | lisp/wid-edit.el | 4 |
1 files 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." | |||
| 852 | (define-key map [(shift tab)] 'widget-backward) | 852 | (define-key map [(shift tab)] 'widget-backward) |
| 853 | (put 'widget-backward :advertised-binding [(shift tab)]) | 853 | (put 'widget-backward :advertised-binding [(shift tab)]) |
| 854 | (define-key map [backtab] 'widget-backward) | 854 | (define-key map [backtab] 'widget-backward) |
| 855 | (define-key map [down-mouse-2] 'widget-button-click) | 855 | (define-key map [mouse-2] 'widget-button-click) |
| 856 | (define-key map [down-mouse-1] 'widget-button-click) | 856 | (define-key map [mouse-1] 'widget-button-click) |
| 857 | ;; The following definition needs to avoid using escape sequences that | 857 | ;; The following definition needs to avoid using escape sequences that |
| 858 | ;; might get converted to ^M when building loaddefs.el | 858 | ;; might get converted to ^M when building loaddefs.el |
| 859 | (define-key map [(control ?m)] 'widget-button-press) | 859 | (define-key map [(control ?m)] 'widget-button-press) |