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

Prefer defvar-keymap in cus-theme.el

Browse source 
* lisp/cus-theme.el (custom-new-theme-mode-map)
(custom-theme-choose-mode-map): Prefer defvar-keymap.
This commit is contained in:
Stefan Kangas 2022-11-12 07:02:30 +01:00
parent d2f956807e
commit b5346eb84d
1 changed files with 18 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
lisp/cus-theme.el
View file

@ -32,17 +32,15 @@
(eval-when-compile
(require 'wid-edit))
(defvar custom-new-theme-mode-map
(let ((map (make-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-write)
(define-key map "q" 'Custom-buffer-done)
(define-key map "n" 'widget-forward)
(define-key map "p" 'widget-backward)
map)
"Keymap for `custom-new-theme-mode'.")
(defvar-keymap custom-new-theme-mode-map
:doc "Keymap for `custom-new-theme-mode'."
:full t
:suppress t
:parent (make-composed-keymap widget-keymap special-mode-map)
"C-x C-s" #'custom-theme-write
"q" #'Custom-buffer-done
"n" #'widget-forward
"p" #'widget-backward)
(define-derived-mode custom-new-theme-mode nil "Custom-Theme"
"Major mode for editing Custom themes.
@ -534,17 +532,15 @@ It includes all faces in list FACES."
:type 'boolean
:group 'custom-buffer)
(defvar custom-theme-choose-mode-map
(let ((map (make-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)
(define-key map "p" 'widget-backward)
(define-key map "?" 'custom-describe-theme)
map)
"Keymap for `custom-theme-choose-mode'.")
(defvar-keymap custom-theme-choose-mode-map
:doc "Keymap for `custom-theme-choose-mode'."
:full t
:suppress t
:parent (make-composed-keymap widget-keymap special-mode-map)
"C-x C-s" #'custom-theme-save
"n" #'widget-forward
"p" #'widget-backward
"?" #'custom-describe-theme)
(define-derived-mode custom-theme-choose-mode special-mode "Themes"
"Major mode for selecting Custom themes.