mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* lisp/finder.el (finder-mode-map): Use defvar-keymap.

Browse Source
This commit is contained in:
Stefan Kangas 2022-03-24 09:55:10 +01:00
parent 799c7e277f
commit 8898e4d4dd
1 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/finder.el
View File

@ -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'."