diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-08-28 15:05:26 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-08-28 15:05:26 -0400 |
| commit | b9696605a311d77c32139aeb0dcce021cd8d05c4 (patch) | |
| tree | 7533b1236c93210d4bd8b12c8a43fe546367f6e8 /lisp/cus-theme.el | |
| parent | 09ac1c2ac0d1b96834f7ffb707060cb387473c4d (diff) | |
| download | emacs-b9696605a311d77c32139aeb0dcce021cd8d05c4.tar.gz | |
Make custom-theme-choose-mode inherit from special-mode.
* lisp/cus-theme.el (custom-theme-choose-mode): Inherit from special-mode.
(custom-theme-choose-mode-map): Add special-mode to parent.
Fixes: debbugs:9124
Diffstat (limited to 'lisp/cus-theme.el')
| -rw-r--r-- | lisp/cus-theme.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el index 04a9e728b22..1f33c3e8256 100644 --- a/lisp/cus-theme.el +++ b/lisp/cus-theme.el @@ -521,7 +521,8 @@ It includes all faces in list FACES." (defvar custom-theme-choose-mode-map (let ((map (make-keymap))) - (set-keymap-parent map widget-keymap) + (set-keymap-parent map (make-composed-keymap widget-keymap + special-mode-map)) (suppress-keymap map) (define-key map "\C-x\C-s" 'custom-theme-save) (define-key map "n" 'widget-forward) @@ -530,7 +531,7 @@ It includes all faces in list FACES." map) "Keymap for `custom-theme-choose-mode'.") -(define-derived-mode custom-theme-choose-mode nil "Themes" +(define-derived-mode custom-theme-choose-mode special-mode "Themes" "Major mode for selecting Custom themes. Do not call this mode function yourself. It is meant for internal use." (use-local-map custom-theme-choose-mode-map) |