Mercurial > emacs
comparison lisp/cus-edit.el @ 32936:3b8c8450514e
(custom-mode-map): Use a sparse map.
(custom-mode): Don't bother with make-local-hook.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 27 Oct 2000 00:55:09 +0000 |
| parents | 2109c5fb0c3f |
| children | 42e118959715 |
comparison
equal
deleted
inserted
replaced
| 32935:85599a2dac71 | 32936:3b8c8450514e |
|---|---|
| 3657 | 3657 |
| 3658 (defvar custom-mode-map nil | 3658 (defvar custom-mode-map nil |
| 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) |
| 3666 (define-key custom-mode-map "\177" 'scroll-down) | 3666 (define-key custom-mode-map "\177" 'scroll-down) |
| 3667 (define-key custom-mode-map "q" 'Custom-buffer-done) | 3667 (define-key custom-mode-map "q" 'Custom-buffer-done) |
| 3751 (when custom-raised-buttons | 3751 (when custom-raised-buttons |
| 3752 (set (make-local-variable 'widget-push-button-prefix) "") | 3752 (set (make-local-variable 'widget-push-button-prefix) "") |
| 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 |
| 3760 (put 'custom-mode 'mode-class 'special) | 3759 (put 'custom-mode 'mode-class 'special) |
| 3761 | 3760 |