Mercurial > emacs
comparison lisp/wid-edit.el @ 68911:f484ff9069d6
* wid-edit.el (widget-keymap): Bind down-mouse-1 to
widget-button-click.
* cus-edit.el (custom-mode-map): Remove mouse-1 binding.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 15 Feb 2006 02:41:02 +0000 |
| parents | 93b583aac002 |
| children | bb4dc0e56e88 |
comparison
equal
deleted
inserted
replaced
| 68910:4b8d82ef7d06 | 68911:f484ff9069d6 |
|---|---|
| 858 (define-key map "\t" 'widget-forward) | 858 (define-key map "\t" 'widget-forward) |
| 859 (define-key map "\e\t" 'widget-backward) | 859 (define-key map "\e\t" 'widget-backward) |
| 860 (define-key map [(shift tab)] 'advertised-widget-backward) | 860 (define-key map [(shift tab)] 'advertised-widget-backward) |
| 861 (define-key map [backtab] 'widget-backward) | 861 (define-key map [backtab] 'widget-backward) |
| 862 (define-key map [down-mouse-2] 'widget-button-click) | 862 (define-key map [down-mouse-2] 'widget-button-click) |
| 863 (define-key map [down-mouse-1] 'widget-button-click) | |
| 863 (define-key map "\C-m" 'widget-button-press) | 864 (define-key map "\C-m" 'widget-button-press) |
| 864 map) | 865 map) |
| 865 "Keymap containing useful binding for buffers containing widgets. | 866 "Keymap containing useful binding for buffers containing widgets. |
| 866 Recommended as a parent keymap for modes using widgets.") | 867 Recommended as a parent keymap for modes using widgets.") |
| 867 | 868 |