[Emacs-diffs] emacs/lisp ChangeLog finder.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/26 03:27:13

Modified files:
        lisp           : ChangeLog finder.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16746&r2=1.16747
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/finder.el?cvsroot=emacs&r1=1.84&r2=1.85

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16746
retrieving revision 1.16747
diff -u -b -r1.16746 -r1.16747
--- ChangeLog   26 Nov 2009 03:18:31 -0000      1.16746
+++ ChangeLog   26 Nov 2009 03:27:10 -0000      1.16747
@@ -1,3 +1,7 @@
+2009-11-26  Dan Nicolaescu  <address@hidden>
+
+       * finder.el (finder-mode-map): Add a menu.
+
 2009-11-26  Michael McNamara  <address@hidden>
 
        * verilog-mode.el (verilog-at-struct-p): Support "signed" and

Index: finder.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/finder.el,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -b -r1.84 -r1.85
--- finder.el   13 Nov 2009 22:19:52 -0000      1.84
+++ finder.el   26 Nov 2009 03:27:13 -0000      1.85
@@ -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