diff options
author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-26 03:27:10 +0000 |
---|---|---|
committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-26 03:27:10 +0000 |
commit | 5dbe0e468035f7a69fb5386df139f3eef2a4343a (patch) | |
tree | 205047f6b0434912f4f6596f7bb0923fb21c98a2 | |
parent | c195b8dc4a4c45cee0bdb51d5af84098413b33a2 (diff) | |
download | emacs-5dbe0e468035f7a69fb5386df139f3eef2a4343a.tar.gz |
(finder-mode-map): Add a menu.
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/finder.el | 18 |
2 files changed, 21 insertions, 1 deletions
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 <dann@ics.uci.edu> + + * finder.el (finder-mode-map): Add a menu. + 2009-11-26 Michael McNamara <mac@mail.brushroad.com> * 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 |