diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-12-08 13:22:21 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-12-08 13:22:21 +0100 |
| commit | ed03b2f30172819d973d9d6cef0851d5a1249ef0 (patch) | |
| tree | 5ad00996ba6644b16859caca90d69ab452fa13b4 /lisp/emacs-lisp | |
| parent | e6e62eedd77d3fee5fa687c155c4905c5ad51a99 (diff) | |
| download | emacs-ed03b2f30172819d973d9d6cef0851d5a1249ef0.tar.gz emacs-ed03b2f30172819d973d9d6cef0851d5a1249ef0.tar.bz2 emacs-ed03b2f30172819d973d9d6cef0851d5a1249ef0.zip | |
Convert shortdoc-mode-map to defvar-keymap
* lisp/emacs-lisp/shortdoc.el (shortdoc-mode-map): Convert to
defvar-keymap.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/shortdoc.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el index ba08e68af57..5c51e257eb0 100644 --- a/lisp/emacs-lisp/shortdoc.el +++ b/lisp/emacs-lisp/shortdoc.el @@ -1423,14 +1423,12 @@ Example: (setq slist (cdr slist))) (setcdr slist (cons elem (cdr slist)))))) -(defvar shortdoc-mode-map - (let ((map (make-sparse-keymap))) - (define-key map (kbd "n") 'shortdoc-next) - (define-key map (kbd "p") 'shortdoc-previous) - (define-key map (kbd "C-c C-n") 'shortdoc-next-section) - (define-key map (kbd "C-c C-p") 'shortdoc-previous-section) - map) - "Keymap for `shortdoc-mode'.") +(defvar-keymap shortdoc-mode-map + :doc "Keymap for `shortdoc-mode'." + "n" #'shortdoc-next + "p" #'shortdoc-previous + "C-c C-n" #'shortdoc-next-section + "C-c C-p" #'shortdoc-previous-section) (define-derived-mode shortdoc-mode special-mode "shortdoc" "Mode for shortdoc." |