diff options
| author | Stefan Monnier | 2000-10-27 00:55:09 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-10-27 00:55:09 +0000 |
| commit | e8d4d4dadb56bfdf9861ee03bcecbf1aca92433f (patch) | |
| tree | 5d350f09a18599e94fb15dba797f79f2acd3d104 | |
| parent | 093849f9ca82296eccfcb05d8c6f374bb59ba386 (diff) | |
| download | emacs-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.el | 3 |
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 | ||