diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-07-09 14:38:48 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-07-09 15:34:04 +0200 |
commit | f6840328c0bc3daa151a1dc42ba030eb6240a853 (patch) | |
tree | 6b34321f9c5c8866c53e0cc0f64e655bd8825aec /lisp/net/sieve-mode.el | |
parent | 30cf1f34c583d6ed16bdc5b9578370f30c95fe1b (diff) | |
download | emacs-f6840328c0bc3daa151a1dc42ba030eb6240a853.tar.gz emacs-f6840328c0bc3daa151a1dc42ba030eb6240a853.tar.bz2 emacs-f6840328c0bc3daa151a1dc42ba030eb6240a853.zip |
Prefer defvar-keymap in net/*.el
* lisp/net/dictionary.el (dictionary-mode-map):
* lisp/net/dig.el (dig-mode-map):
* lisp/net/eudc-hotlist.el (eudc-hotlist-mode-map):
* lisp/net/eudc.el (eudc-mode-map):
* lisp/net/mairix.el (mairix-searches-mode-map):
* lisp/net/newst-treeview.el
(newsticker-treeview-list-sort-button-map)
(newsticker-treeview-mode-map):
* lisp/net/quickurl.el (quickurl-list-mode-map):
* lisp/net/rcirc.el (rcirc-mode-map)
(rcirc-multiline-minor-mode-map, rcirc-track-minor-mode-map):
* lisp/net/rlogin.el (rlogin-mode-map):
* lisp/net/secrets.el (secrets-mode-map):
* lisp/net/sieve-mode.el (sieve-mode-map):
* lisp/net/sieve.el (sieve-manage-mode-map):
* lisp/net/snmp-mode.el (snmp-mode-map):
* lisp/net/telnet.el (telnet-mode-map): Prefer defvar-keymap.
Diffstat (limited to 'lisp/net/sieve-mode.el')
-rw-r--r-- | lisp/net/sieve-mode.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/net/sieve-mode.el b/lisp/net/sieve-mode.el index 58fd41d8995..f62af03534a 100644 --- a/lisp/net/sieve-mode.el +++ b/lisp/net/sieve-mode.el @@ -137,13 +137,11 @@ ;; Key map definition -(defvar sieve-mode-map - (let ((map (make-sparse-keymap))) - (define-key map "\C-c\C-l" #'sieve-upload) - (define-key map "\C-c\C-c" #'sieve-upload-and-kill) - (define-key map "\C-c\C-m" #'sieve-manage) - map) - "Key map used in sieve mode.") +(defvar-keymap sieve-mode-map + :doc "Keymap used in sieve mode." + "C-c C-l" #'sieve-upload + "C-c C-c" #'sieve-upload-and-kill + "C-c RET" #'sieve-manage) ;; Menu |