diff options
| -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 | ||