Mercurial > emacs
changeset 106267:823bbd791783
(finder-mode-map): Add a menu.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 26 Nov 2009 03:27:10 +0000 |
| parents | 20529fe8e765 |
| children | da7a85775258 |
| files | lisp/ChangeLog lisp/finder.el |
| diffstat | 2 files changed, 21 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Nov 26 03:24:41 2009 +0000 +++ b/lisp/ChangeLog Thu Nov 26 03:27:10 2009 +0000 @@ -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
--- a/lisp/finder.el Thu Nov 26 03:24:41 2009 +0000 +++ b/lisp/finder.el Thu Nov 26 03:27:10 2009 +0000 @@ -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