Mercurial > emacs
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