From 7d74b8f632b1af75b837f5b5259cd1758aab1489 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 17 May 2022 17:25:27 +0200 Subject: Prefer defvar-keymap in some progmodes * lisp/progmodes/asm-mode.el (asm-mode-map): * lisp/progmodes/bug-reference.el (bug-reference-map): * lisp/progmodes/erts-mode.el (erts-mode-map): * lisp/progmodes/flymake.el (flymake-mode-map) (flymake-diagnostics-buffer-mode-map): * lisp/progmodes/icon.el (icon-mode-map): * lisp/progmodes/js.el (js-mode-map): * lisp/progmodes/m4-mode.el (m4-mode-map): * lisp/progmodes/mixal-mode.el (mixal-mode-map): * lisp/progmodes/scheme.el (scheme-mode-map): Prefer defvar-keymap. --- lisp/progmodes/flymake.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) (limited to 'lisp/progmodes/flymake.el') diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 0b7958e52fb..9e3255874da 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el @@ -1080,9 +1080,8 @@ Interactively, with a prefix arg, FORCE is t." (flymake--run-backend backend backend-args))) nil)))))))) -(defvar flymake-mode-map - (let ((map (make-sparse-keymap))) map) - "Keymap for `flymake-mode'.") +(defvar-keymap flymake-mode-map + :doc "Keymap for `flymake-mode'.") ;;;###autoload (define-minor-mode flymake-mode @@ -1493,11 +1492,9 @@ TYPE is usually keyword `:error', `:warning' or `:note'." (defvar-local flymake--diagnostics-buffer-source nil) -(defvar flymake-diagnostics-buffer-mode-map - (let ((map (make-sparse-keymap))) - (define-key map (kbd "RET") 'flymake-goto-diagnostic) - (define-key map (kbd "SPC") 'flymake-show-diagnostic) - map)) +(defvar-keymap flymake-diagnostics-buffer-mode-map + "RET" #'flymake-goto-diagnostic + "SPC" #'flymake-show-diagnostic) (defun flymake-show-diagnostic (pos &optional other-window) "Show location of diagnostic at POS." -- cgit v1.2.3