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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8afcd5b94a0eb18a447c4fae3e66f1b6c9d8f5ce..81b22ead068d3705b953442d0f590d29b5f4008d 100644 (file)
--- 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 cba3c832064b5de0d52e5ef63cf92ed1a0a4b0b2..5219391b26182f2508cca6a4ac00e1a401fd50ce 100644 (file)
--- 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