Prefer defvar-keymap in conf-mode.el
* lisp/textmodes/conf-mode.el (conf-mode-map): Prefer defvar-keymap.
This commit is contained in:
parent
ec34bccfee
commit
89f9377139
1 changed files with 15 additions and 17 deletions
|
@ -62,23 +62,21 @@ not align (only setting space according to `conf-assignment-space')."
|
|||
"Value for `conf-assignment-space' in colon style Conf mode buffers."
|
||||
:type 'boolean)
|
||||
|
||||
(defvar conf-mode-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(define-key map "\C-c\C-u" 'conf-unix-mode)
|
||||
(define-key map "\C-c\C-w" 'conf-windows-mode)
|
||||
(define-key map "\C-c\C-j" 'conf-javaprop-mode)
|
||||
(define-key map "\C-c\C-s" 'conf-space-keywords)
|
||||
(define-key map "\C-c " 'conf-space-keywords)
|
||||
(define-key map "\C-c\C-c" 'conf-colon-mode)
|
||||
(define-key map "\C-c:" 'conf-colon-mode)
|
||||
(define-key map "\C-c\C-x" 'conf-xdefaults-mode)
|
||||
(define-key map "\C-c\C-p" 'conf-ppd-mode)
|
||||
(define-key map "\C-c\C-q" 'conf-quote-normal)
|
||||
(define-key map "\C-c\"" 'conf-quote-normal)
|
||||
(define-key map "\C-c'" 'conf-quote-normal)
|
||||
(define-key map "\C-c\C-a" 'conf-align-assignments)
|
||||
map)
|
||||
"Local keymap for `conf-mode' buffers.")
|
||||
(defvar-keymap conf-mode-map
|
||||
:doc "Local keymap for `conf-mode' buffers."
|
||||
"C-c C-u" #'conf-unix-mode
|
||||
"C-c C-w" #'conf-windows-mode
|
||||
"C-c C-j" #'conf-javaprop-mode
|
||||
"C-c C-s" #'conf-space-keywords
|
||||
"C-c SPC" #'conf-space-keywords
|
||||
"C-c C-c" #'conf-colon-mode
|
||||
"C-c :" #'conf-colon-mode
|
||||
"C-c C-x" #'conf-xdefaults-mode
|
||||
"C-c C-p" #'conf-ppd-mode
|
||||
"C-c C-q" #'conf-quote-normal
|
||||
"C-c \"" #'conf-quote-normal
|
||||
"C-c '" #'conf-quote-normal
|
||||
"C-c C-a" #'conf-align-assignments)
|
||||
|
||||
(easy-menu-define conf-mode-menu conf-mode-map
|
||||
"Menu for `conf-mode'."
|
||||
|
|
Loading…
Add table
Reference in a new issue