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/bug-reference.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'lisp/progmodes/bug-reference.el') diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el index 06242a4cba8..d3626dbaf01 100644 --- a/lisp/progmodes/bug-reference.el +++ b/lisp/progmodes/bug-reference.el @@ -40,12 +40,10 @@ ;; Somewhat arbitrary, by analogy with eg goto-address. :group 'comm) -(defvar bug-reference-map - (let ((map (make-sparse-keymap))) - (define-key map [mouse-2] 'bug-reference-push-button) - (define-key map (kbd "C-c RET") 'bug-reference-push-button) - map) - "Keymap used by bug reference buttons.") +(defvar-keymap bug-reference-map + :doc "Keymap used by bug reference buttons." + "" #'bug-reference-push-button + "C-c RET" #'bug-reference-push-button) ;; E.g., "https://gcc.gnu.org/PR%s" (defvar bug-reference-url-format nil -- cgit v1.2.3