aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2000-10-27 00:55:09 +0000
committerStefan Monnier2000-10-27 00:55:09 +0000
commite8d4d4dadb56bfdf9861ee03bcecbf1aca92433f (patch)
tree5d350f09a18599e94fb15dba797f79f2acd3d104
parent093849f9ca82296eccfcb05d8c6f374bb59ba386 (diff)
downloademacs-e8d4d4dadb56bfdf9861ee03bcecbf1aca92433f.tar.gz
emacs-e8d4d4dadb56bfdf9861ee03bcecbf1aca92433f.zip
(custom-mode-map): Use a sparse map.
(custom-mode): Don't bother with make-local-hook.
-rw-r--r--lisp/cus-edit.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index da0ee18b2d7..b9d05919572 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3659,7 +3659,7 @@ The format is suitable for use with `easy-menu-define'."
3659 "Keymap for `custom-mode'.") 3659 "Keymap for `custom-mode'.")
3660 3660
3661(unless custom-mode-map 3661(unless custom-mode-map
3662 (setq custom-mode-map (make-sparse-keymap)) 3662 (setq custom-mode-map (make-keymap))
3663 (set-keymap-parent custom-mode-map widget-keymap) 3663 (set-keymap-parent custom-mode-map widget-keymap)
3664 (suppress-keymap custom-mode-map) 3664 (suppress-keymap custom-mode-map)
3665 (define-key custom-mode-map " " 'scroll-up) 3665 (define-key custom-mode-map " " 'scroll-up)
@@ -3753,7 +3753,6 @@ if that value is non-nil."
3753 (set (make-local-variable 'widget-push-button-suffix) "") 3753 (set (make-local-variable 'widget-push-button-suffix) "")
3754 (set (make-local-variable 'widget-link-prefix) "") 3754 (set (make-local-variable 'widget-link-prefix) "")
3755 (set (make-local-variable 'widget-link-suffix) "")) 3755 (set (make-local-variable 'widget-link-suffix) ""))
3756 (make-local-hook 'widget-edit-functions)
3757 (add-hook 'widget-edit-functions 'custom-state-buffer-message nil t) 3756 (add-hook 'widget-edit-functions 'custom-state-buffer-message nil t)
3758 (run-hooks 'custom-mode-hook)) 3757 (run-hooks 'custom-mode-hook))
3759 3758