diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2022-10-30 13:14:57 +0100 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2022-10-30 13:16:03 +0100 |
commit | 16686bdb868721069088600704f8375feb9c0d81 (patch) | |
tree | 9f8bcd13dc734f2384930b9a03264afc0020734f /lisp/progmodes/etags.el | |
parent | d4dffae72c9042b10e73ff418b33faa8bf3a6b44 (diff) | |
download | emacs-16686bdb868721069088600704f8375feb9c0d81.tar.gz |
Prefer defvar-keymap in etags.el
* lisp/progmodes/etags.el (select-tags-table-mode-map): Prefer
defvar-keymap.
Diffstat (limited to 'lisp/progmodes/etags.el')
-rw-r--r-- | lisp/progmodes/etags.el | 22 |
1 files 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 <roland@gnu.org> ;; 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." |