# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1248716498 0
# Node ID 6298508aee59f93bd27bd7627017f8608e63c2d0
# Parent  7be2320fbf28c4094984bbbee6a1da856c2b8aa1
(change-log-mode-map): Add a menu.

diff -r 7be2320fbf28 -r 6298508aee59 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jul 27 10:11:47 2009 +0000
+++ b/lisp/ChangeLog	Mon Jul 27 17:41:38 2009 +0000
@@ -1,3 +1,7 @@
+2009-07-27  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* add-log.el (change-log-mode-map): Add a menu.
+
 2009-07-27  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/dbus.el (dbus-call-method-non-blocking): Handle the case the
diff -r 7be2320fbf28 -r 6298508aee59 lisp/add-log.el
--- a/lisp/add-log.el	Mon Jul 27 10:11:47 2009 +0000
+++ b/lisp/add-log.el	Mon Jul 27 17:41:38 2009 +0000
@@ -554,11 +554,26 @@
 	(select-window change-log-find-window)))))
 
 (defvar change-log-mode-map
-  (let ((map (make-sparse-keymap)))
+  (let ((map (make-sparse-keymap))
+	(menu-map (make-sparse-keymap)))
     (define-key map [?\C-c ?\C-p] 'add-log-edit-prev-comment)
     (define-key map [?\C-c ?\C-n] 'add-log-edit-next-comment)
     (define-key map [?\C-c ?\C-f] 'change-log-find-file)
     (define-key map [?\C-c ?\C-c] 'change-log-goto-source)
+    (define-key map [menu-bar changelog] (cons "ChangeLog" menu-map))
+    (define-key menu-map [gs]
+      '(menu-item "Go To Source" change-log-goto-source
+		  :help "Go to source location of ChangeLog tag near point"))
+    (define-key menu-map [ff]
+      '(menu-item "Find File" change-log-find-file
+		  :help "Visit the file for the change under point"))
+    (define-key menu-map [sep] '("--"))
+    (define-key menu-map [nx]
+      '(menu-item "Next Log-Edit Comment" add-log-edit-next-comment
+		  :help "Cycle forward through Log-Edit mode comment history"))
+    (define-key menu-map [pr]
+      '(menu-item "Previous Log-Edit Comment" add-log-edit-prev-comment
+		  :help "Cycle backward through Log-Edit mode comment history"))
     map)
   "Keymap for Change Log major mode.")