mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Convert finder menu to easy-menu-define

Browse source 
* lisp/finder.el (finder-mode-map): Move menu definition from
here...
(finder-mode-menu): ...to here, and rewrite using
easy-menu-define.
This commit is contained in:
Stefan Kangas 2021-02-20 06:59:02 +01:00
parent c85c8e7d42
commit 7b12747e2f
1 changed files with 12 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/finder.el
View file

@ -90,24 +90,21 @@ Each element has the form (KEYWORD . DESCRIPTION).")
(define-key map "p" 'previous-line)
(define-key map "q" 'finder-exit)
(define-key map "d" 'finder-list-keywords)
(define-key map [menu-bar finder-mode]
(cons "Finder" menu-map))
(define-key menu-map [finder-exit]
'(menu-item "Quit" finder-exit
:help "Exit Finder mode"))
(define-key menu-map [finder-summary]
'(menu-item "Summary" finder-summary
:help "Summary item on current line in a finder buffer"))
(define-key menu-map [finder-list-keywords]
'(menu-item "List keywords" finder-list-keywords
:help "Display descriptions of the keywords in the Finder buffer"))
(define-key menu-map [finder-select]
'(menu-item "Select" finder-select
:help "Select item on current line in a finder buffer"))
map)
"Keymap used in `finder-mode'.")
(easy-menu-define finder-mode-menu finder-mode-map
"Menu for `finder-mode'."
'("Finder"
["Select" finder-select
:help "Select item on current line in a finder buffer"]
["List keywords" finder-list-keywords
:help "Display descriptions of the keywords in the Finder buffer"]
["Summary" finder-summary
:help "Summary item on current line in a finder buffer"]
["Quit" finder-exit
:help "Exit Finder mode"]))
(defvar finder-mode-syntax-table
(let ((st (make-syntax-table emacs-lisp-mode-syntax-table)))
(modify-syntax-entry ?\; ". " st)