Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make custom-theme-choose-mode inherit from special-mode.

Browse source 
* 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
This commit is contained in:
Chong Yidong 2011-08-28 15:05:26 -04:00
parent 09ac1c2ac0
commit b9696605a3
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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 <acm@muc.de>
* progmodes/cc-fonts.el

5
lisp/cus-theme.el
View file

@ -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)