(finder-mode-map): Add a menu.

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