1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

Prefer defvar-keymap in vc/*.el

* lisp/vc/add-log.el (change-log-mode-map):
* lisp/vc/ediff-mult.el (ediff-dir-diffs-buffer-map):
* lisp/vc/vc-annotate.el (vc-annotate-mode-map):
* lisp/vc/vc-bzr.el (vc-bzr-shelve-map):
* lisp/vc/vc-dir.el (vc-dir-status-mouse-map)
(vc-dir-filename-mouse-map):
* lisp/vc/vc-git.el (vc-git-stash-shared-map, vc-git-stash-map)
(vc-git-stash-button-map, vc-git-log-edit-mode-map):
* lisp/vc/vc-hg.el (vc-hg-log-edit-mode-map)
(vc-hg-extra-menu-map):
* lisp/vc/vc-hooks.el (vc-prefix-map): Prefer defvar-keymap.
This commit is contained in:
Stefan Kangas 2022-08-10 11:53:27 +02:00
parent f002fa8bfc
commit 8b31c18fc8
8 changed files with 102 additions and 125 deletions

View file

@ -568,14 +568,12 @@ Compatibility function for \\[next-error] invocations."
;; Select window displaying source file.
(select-window change-log-find-window)))))
(defvar change-log-mode-map
(let ((map (make-sparse-keymap)))
(define-key map [?\C-c ?\C-p] #'add-log-edit-prev-comment)
(define-key map [?\C-c ?\C-n] #'add-log-edit-next-comment)
(define-key map [?\C-c ?\C-f] #'change-log-find-file)
(define-key map [?\C-c ?\C-c] #'change-log-goto-source)
map)
"Keymap for Change Log major mode.")
(defvar-keymap change-log-mode-map
:doc "Keymap for Change Log major mode."
"C-c C-p" #'add-log-edit-prev-comment
"C-c C-n" #'add-log-edit-next-comment
"C-c C-f" #'change-log-find-file
"C-c C-c" #'change-log-goto-source)
(easy-menu-define change-log-mode-menu change-log-mode-map
"Menu for Change Log major mode."