mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

* wid-edit.el (widget-keymap): Bind down-mouse-1 to

Browse Source 
widget-button-click.

	* cus-edit.el (custom-mode-map): Remove mouse-1 binding.
This commit is contained in:
Chong Yidong 2006-02-15 02:41:02 +00:00
parent 16f18d05e5
commit bb55f90e4a
3 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,5 +1,10 @@
2006-02-14 Chong Yidong <cyd@stupidchicken.com> 2006-02-14 Chong Yidong <cyd@stupidchicken.com>
* wid-edit.el (widget-keymap): Bind down-mouse-1 to
widget-button-click.
* cus-edit.el (custom-mode-map): Remove mouse-1 binding.
* files.el (hack-local-variables-confirm): Allow scrolling if the * files.el (hack-local-variables-confirm): Allow scrolling if the
file variable list is too long. Kill temp buffer after use. file variable list is too long. Kill temp buffer after use.
@ -35,6 +40,7 @@
* files.el (hack-local-variables): Remove ignored variables before * files.el (hack-local-variables): Remove ignored variables before
checking if any variables need setting. checking if any variables need setting.
>>>>>>> 1.9141
2006-02-14 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> 2006-02-14 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* cus-start.el (all): Add x-gtk-whole-detached-tool-bar. * cus-start.el (all): Add x-gtk-whole-detached-tool-bar.

1
lisp/cus-edit.el
View File

@ -4369,7 +4369,6 @@ The format is suitable for use with `easy-menu-define'."
(define-key map "u" 'Custom-goto-parent) (define-key map "u" 'Custom-goto-parent)
(define-key map "n" 'widget-forward) (define-key map "n" 'widget-forward)
(define-key map "p" 'widget-backward) (define-key map "p" 'widget-backward)
(define-key map [mouse-1] 'widget-move-and-invoke)
map) map)
"Keymap for `custom-mode'.") "Keymap for `custom-mode'.")

1
lisp/wid-edit.el
View File

@ -860,6 +860,7 @@ button end points."
(define-key map [(shift tab)] 'advertised-widget-backward) (define-key map [(shift tab)] 'advertised-widget-backward)
(define-key map [backtab] 'widget-backward) (define-key map [backtab] 'widget-backward)
(define-key map [down-mouse-2] 'widget-button-click) (define-key map [down-mouse-2] 'widget-button-click)
(define-key map [down-mouse-1] 'widget-button-click)
(define-key map "\C-m" 'widget-button-press) (define-key map "\C-m" 'widget-button-press)
map) map)
"Keymap containing useful binding for buffers containing widgets. "Keymap containing useful binding for buffers containing widgets.