From 16686bdb868721069088600704f8375feb9c0d81 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 30 Oct 2022 13:14:57 +0100 Subject: [PATCH] Prefer defvar-keymap in etags.el * lisp/progmodes/etags.el (select-tags-table-mode-map): Prefer defvar-keymap. --- lisp/progmodes/etags.el | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 85c5992998a..cbdb0994cbf 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1,7 +1,6 @@ ;;; etags.el --- etags facility for Emacs -*- lexical-binding: t -*- -;; Copyright (C) 1985-1986, 1988-1989, 1992-1996, 1998, 2000-2022 Free -;; Software Foundation, Inc. +;; Copyright (C) 1985-2022 Free Software Foundation, Inc. ;; Author: Roland McGrath ;; Maintainer: emacs-devel@gnu.org @@ -2006,16 +2005,15 @@ see the doc of that variable if you want to add names to the list." (set-buffer-modified-p nil) (select-tags-table-mode)) -(defvar select-tags-table-mode-map ; Doc string? - (let ((map (make-sparse-keymap))) - (set-keymap-parent map button-buffer-map) - (define-key map "t" 'push-button) - (define-key map " " 'next-line) - (define-key map "\^?" 'previous-line) - (define-key map "n" 'next-line) - (define-key map "p" 'previous-line) - (define-key map "q" 'select-tags-table-quit) - map)) +(defvar-keymap select-tags-table-mode-map + :doc "Keymap for `select-tags-table-mode'." + :parent button-buffer-map + "t" #'push-button + "SPC" #'next-line + "DEL" #'previous-line + "n" #'next-line + "p" #'previous-line + "q" #'select-tags-table-quit) (define-derived-mode select-tags-table-mode special-mode "Select Tags Table" "Major mode for choosing a current tags table among those already loaded." -- 2.39.5