From 2643c7aa2d1561cae7929d1a4d9cc9eb96c4a393 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Thu, 26 Nov 2009 03:27:10 +0000 Subject: (finder-mode-map): Add a menu. --- lisp/ChangeLog | 4 ++++ lisp/finder.el | 18 +++++++++++++++++- 2 files changed, 21 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8afcd5b94a0..81b22ead068 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-11-26 Dan Nicolaescu + + * finder.el (finder-mode-map): Add a menu. + 2009-11-26 Michael McNamara * verilog-mode.el (verilog-at-struct-p): Support "signed" and diff --git a/lisp/finder.el b/lisp/finder.el index cba3c832064..5219391b261 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -87,7 +87,8 @@ )) (defvar finder-mode-map - (let ((map (make-sparse-keymap))) + (let ((map (make-sparse-keymap)) + (menu-map (make-sparse-keymap "Finder"))) (define-key map " " 'finder-select) (define-key map "f" 'finder-select) (define-key map [follow-link] 'mouse-face) @@ -98,6 +99,21 @@ (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)) (defvar finder-mode-syntax-table -- cgit v1.2.1