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

Don't

Browse Source 
inherit from global-map and don't nullify menu-bar and tool-bar
bindings since keymap properties DTRT.
This commit is contained in:
Dave Love 2000-10-25 09:55:35 +00:00
parent a540f6ed85
commit f4b020f69a
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2000-10-25 Dave Love <fx@gnu.org>
* wid-edit.el (widget-field-keymap, widget-text-keymap): Don't
inherit from global-map and don't nullify menu-bar and tool-bar
bindings since keymap properties DTRT.
2000-10-25 Miles Bader <miles@lsi.nec.co.jp>
* wid-edit.el (widget-field-at): New function.

8
lisp/wid-edit.el
View File

@ -790,13 +790,11 @@ button end points."
Recommended as a parent keymap for modes using widgets.")
(defvar widget-global-map global-map
"Keymap used for events the widget does not handle themselves.")
"Keymap used for events a widget does not handle itself.")
(make-variable-buffer-local 'widget-global-map)
(defvar widget-field-keymap
(let ((map (copy-keymap widget-keymap)))
(define-key map [menu-bar] nil)
(define-key map [tool-bar] nil)
(define-key map "\C-k" 'widget-kill-line)
(define-key map "\M-\t" 'widget-complete)
(define-key map "\C-m" 'widget-field-activate)
@ -804,19 +802,15 @@ Recommended as a parent keymap for modes using widgets.")
;; ordinary beginning-of-line/end-of-line do the right thing.
;; (define-key map "\C-a" 'widget-beginning-of-line)
;; (define-key map "\C-e" 'widget-end-of-line)
(set-keymap-parent map global-map)
map)
"Keymap used inside an editable field.")
(defvar widget-text-keymap
(let ((map (copy-keymap widget-keymap)))
(define-key map [menu-bar] nil)
(define-key map [tool-bar] nil)
;; Since the widget code uses a `field' property to identify fields,
;; ordinary beginning-of-line/end-of-line do the right thing.
;; (define-key map "\C-a" 'widget-beginning-of-line)
;; (define-key map "\C-e" 'widget-end-of-line)
(set-keymap-parent map global-map)
map)
"Keymap used inside a text field.")