diff options
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 40d1e2ffdfb..3f2dcd20ccc 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -4655,17 +4655,16 @@ Entry to this mode calls the value of `Custom-mode-hook' | |||
| 4655 | if that value is non-nil." | 4655 | if that value is non-nil." |
| 4656 | (use-local-map custom-mode-map) | 4656 | (use-local-map custom-mode-map) |
| 4657 | (easy-menu-add Custom-mode-menu) | 4657 | (easy-menu-add Custom-mode-menu) |
| 4658 | (when (display-graphic-p) | 4658 | (set (make-local-variable 'tool-bar-map) |
| 4659 | (set (make-local-variable 'tool-bar-map) | 4659 | (or custom-tool-bar-map |
| 4660 | (or custom-tool-bar-map | 4660 | ;; Set up `custom-tool-bar-map'. |
| 4661 | ;; Set up `custom-tool-bar-map'. | 4661 | (let ((map (make-sparse-keymap))) |
| 4662 | (let ((map (make-sparse-keymap))) | 4662 | (mapc |
| 4663 | (mapc | 4663 | (lambda (arg) |
| 4664 | (lambda (arg) | 4664 | (tool-bar-local-item-from-menu |
| 4665 | (tool-bar-local-item-from-menu | 4665 | (nth 1 arg) (nth 4 arg) map custom-mode-map)) |
| 4666 | (nth 1 arg) (nth 4 arg) map custom-mode-map)) | 4666 | custom-commands) |
| 4667 | custom-commands) | 4667 | (setq custom-tool-bar-map map)))) |
| 4668 | (setq custom-tool-bar-map map))))) | ||
| 4669 | (make-local-variable 'custom-options) | 4668 | (make-local-variable 'custom-options) |
| 4670 | (make-local-variable 'custom-local-buffer) | 4669 | (make-local-variable 'custom-local-buffer) |
| 4671 | (make-local-variable 'widget-documentation-face) | 4670 | (make-local-variable 'widget-documentation-face) |