diff options
| author | Yuan Fu <casouri@gmail.com> | 2022-11-21 12:54:35 -0800 |
|---|---|---|
| committer | Yuan Fu <casouri@gmail.com> | 2022-11-21 12:54:35 -0800 |
| commit | aaeaa310f0391f5a5193e1a3d6e026986c4f2c0c (patch) | |
| tree | 67765b95359bfc462e95606043e6b0cea3bb7c49 /lisp/cus-theme.el | |
| parent | b2ea38ab03e801859163b74a292aa75008e36541 (diff) | |
| parent | f176a36f4629b56c9fd9e3fc15aebd04a168c4f5 (diff) | |
| download | emacs-aaeaa310f0391f5a5193e1a3d6e026986c4f2c0c.tar.gz emacs-aaeaa310f0391f5a5193e1a3d6e026986c4f2c0c.tar.bz2 emacs-aaeaa310f0391f5a5193e1a3d6e026986c4f2c0c.zip | |
Merge remote-tracking branch 'savannah/master' into feature/tree-sitter
Diffstat (limited to 'lisp/cus-theme.el')
| -rw-r--r-- | lisp/cus-theme.el | 42 |
1 files changed, 19 insertions, 23 deletions
diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el index 1df2ab8db7c..69ed2087a78 100644 --- a/lisp/cus-theme.el +++ b/lisp/cus-theme.el @@ -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. @@ -146,7 +144,7 @@ remove them from your saved Custom file.\n\n") (widget-create 'push-button :tag " Revert " :help-echo "Revert this buffer to its original state." - :action (lambda (&rest ignored) (revert-buffer))) + :action (lambda (&rest _ignored) (revert-buffer))) (widget-insert "\n\nTheme name : ") (setq custom-theme-name @@ -538,17 +536,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. |