From b9696605a311d77c32139aeb0dcce021cd8d05c4 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 28 Aug 2011 15:05:26 -0400 Subject: [PATCH] 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 --- lisp/ChangeLog | 4 ++++ lisp/cus-theme.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5d4470a7f8..a6a81ff0fb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -11,6 +11,10 @@ * server.el (server-port): Doc fix. + * cus-theme.el (custom-theme-choose-mode): Inherit from + special-mode (Bug#9124). + (custom-theme-choose-mode-map): Add special-mode to parent. + 2011-08-28 Alan Mackenzie * progmodes/cc-fonts.el diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el index 04a9e728b2..1f33c3e825 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) -- 2.20.1