[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8898e4d4dd 1/2: * lisp/finder.el (finder-mode-map): Use defvar-ke
From: |
Stefan Kangas |
Subject: |
master 8898e4d4dd 1/2: * lisp/finder.el (finder-mode-map): Use defvar-keymap. |
Date: |
Thu, 28 Apr 2022 11:20:58 -0400 (EDT) |
branch: master
commit 8898e4d4dd055d344b2728fe56cf601ba033cfb7
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
* lisp/finder.el (finder-mode-map): Use defvar-keymap.
---
lisp/finder.el | 29 +++++++++++++----------------
1 file changed, 13 insertions(+), 16 deletions(-)
diff --git a/lisp/finder.el b/lisp/finder.el
index 899e829296..a2a27ea061 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -1,7 +1,6 @@
;;; finder.el --- topic & keyword-based code finder -*- lexical-binding: t -*-
-;; Copyright (C) 1992, 1997-1999, 2001-2022 Free Software Foundation,
-;; Inc.
+;; Copyright (C) 1992-2022 Free Software Foundation, Inc.
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Created: 16 Jun 1992
@@ -76,20 +75,18 @@
"Association list of the standard \"Keywords:\" headers.
Each element has the form (KEYWORD . DESCRIPTION).")
-(defvar finder-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map " " 'finder-select)
- (define-key map "f" 'finder-select)
- (define-key map [follow-link] 'mouse-face)
- (define-key map [mouse-2] 'finder-mouse-select)
- (define-key map "\C-m" 'finder-select)
- (define-key map "?" 'finder-summary)
- (define-key map "n" 'next-line)
- (define-key map "p" 'previous-line)
- (define-key map "q" 'finder-exit)
- (define-key map "d" 'finder-list-keywords)
- map)
- "Keymap used in `finder-mode'.")
+(defvar-keymap finder-mode-map
+ :doc "Keymap used in `finder-mode'."
+ "SPC" #'finder-select
+ "f" #'finder-select
+ "<follow-link>" 'mouse-face
+ "<mouse-2>" #'finder-mouse-select
+ "C-m" #'finder-select
+ "?" #'finder-summary
+ "n" #'next-line
+ "p" #'previous-line
+ "q" #'finder-exit
+ "d" #'finder-list-keywords)
(easy-menu-define finder-mode-menu finder-mode-map
"Menu for `finder-mode'."