changeset 33180:8700cd9cdd26

(log-edit-menu): New menu.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 03 Nov 2000 20:12:09 +0000
parents 0c2235c00672
children 5e12e142dc45
files lisp/log-edit.el
diffstat 1 files changed, 18 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/log-edit.el	Fri Nov 03 16:04:08 2000 +0000
+++ b/lisp/log-edit.el	Fri Nov 03 20:12:09 2000 +0000
@@ -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