(log-edit-menu): New menu.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49c823c9f90df35b84fe15c505f5cd528de3c489..55fc91209bb60ee900d0c7fb24deb7d3018debd3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-03  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * log-edit.el (log-edit-menu): New menu.
+
 2000-11-03  Miles Bader  <miles@gnu.org>
 
        * wid-edit.el (widget-end-of-line): Reinstate, with a new

diff --git a/lisp/log-edit.el b/lisp/log-edit.el
index 1631a7c37e57c03f59cff659d1fed66e9589fc51..a02747b747655dc454009c4cab62541b258c55fb 100644 (file)
--- a/lisp/log-edit.el
+++ b/lisp/log-edit.el
@@ -5,7 +5,7 @@
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs cvs commit log
 ;; Version: $Name:  $
-;; Revision: $Id: log-edit.el,v 1.8 2000/10/24 11:27:41 fx Exp $
+;; Revision: $Id: log-edit.el,v 1.9 2000/10/30 14:28:30 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -63,6 +63,23 @@
   :inherit (if (boundp 'vc-log-entry-mode) vc-log-entry-mode
             (if (boundp 'vc-log-mode-map) vc-log-mode-map)))
 
+(easy-menu-define log-edit-menu log-edit-mode-map
+  "Menu used for `log-edit-mode'."
+  '("Log-Edit"
+    ["Done" log-edit-done
+     :help "Exit log-edit and proceed with the actual action."]
+    "--"
+    ["Insert ChangeLog" log-edit-insert-changelog]
+    ["Add to ChangeLog" log-edit-add-to-changelog]
+    "--"
+    ["List files" log-edit-show-files
+     :help "Show the list of relevant files."]
+    "--"
+    ["Previous comment" vc-previous-comment]
+    ["Next comment" vc-next-comment]
+    ["Search comment forward" vc-comment-search-forward]
+    ["Search comment backward" vc-comment-search-reverse]))
+
 (defcustom log-edit-confirm 'changed
   "*If non-nil, `log-edit-done' will request confirmation.
 If 'changed, only request confirmation if the list of files has