# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1259206030 0
# Node ID 823bbd791783b55d4f0027bead9837cc4cb33fa6
# Parent  20529fe8e765f93b54bc6623145c7821a69f3713
(finder-mode-map): Add a menu.

diff -r 20529fe8e765 -r 823bbd791783 lisp/ChangeLog
--- 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
diff -r 20529fe8e765 -r 823bbd791783 lisp/finder.el
--- 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