Mercurial > emacs
changeset 86232:74f276f67957
(custom-field-keymap): Move to other Custom mode
keymaps such that it's before the definition of Custom-mode-menu.
(Custom-mode-menu): Show it for custom-field-keymap too.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Mon, 19 Nov 2007 07:50:04 +0000 |
| parents | b4b52674ba3c |
| children | 851a18a6e906 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 9 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Mon Nov 19 07:48:56 2007 +0000 +++ b/lisp/cus-edit.el Mon Nov 19 07:50:04 2007 +0000 @@ -491,6 +491,14 @@ map) "Local keymap for links in `custom-mode'.") +(defvar custom-field-keymap + (let ((map (copy-keymap widget-field-keymap))) + (define-key map "\C-c\C-c" 'Custom-set) + (define-key map "\C-x\C-s" 'Custom-save) + map) + "Keymap used inside editable fields in customization buffers.") + +(widget-put (get 'editable-field 'widget-type) :keymap custom-field-keymap) ;;; Utilities. @@ -4438,7 +4446,7 @@ ;;; Toolbar and menubar support (easy-menu-define - Custom-mode-menu custom-mode-map + Custom-mode-menu (list custom-mode-map custom-field-keymap) "Menu used in customization buffers." (nconc (list "Custom" (customize-menu-create 'customize)) @@ -4476,15 +4484,6 @@ (widget-apply-action button event) (error "You can't edit this part of the Custom buffer")))) -(defvar custom-field-keymap - (let ((map (copy-keymap widget-field-keymap))) - (define-key map "\C-c\C-c" 'Custom-set) - (define-key map "\C-x\C-s" 'Custom-save) - map) - "Keymap used inside editable fields in customization buffers.") - -(widget-put (get 'editable-field 'widget-type) :keymap custom-field-keymap) - (defun Custom-goto-parent () "Go to the parent group listed at the top of this buffer. If several parents are listed, go to the first of them."