Mercurial > emacs

changeset 28338:8da42323f5d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(log-edit-mode-map): Inherit from vc-log-mode-map if it ever becomes used. (log-edit-mode-hook): Default to vc-log-mode-hook. (log-edit-mode): Fix the docstring.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 26 Mar 2000 21:19:58 +0000
parents 080ef35e195d
children 52e664c981f0
files lisp/log-edit.el
diffstat 1 files changed, 15 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/log-edit.el	Sun Mar 26 19:52:27 2000 +0000
+++ b/lisp/log-edit.el	Sun Mar 26 21:19:58 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/03/05 21:32:21 monnier Exp $
+;; Revision: $Id: log-edit.el,v 1.1 2000/03/11 03:42:28 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -60,7 +60,8 @@
     ("\C-c?" . log-edit-mode-help))
   "Keymap for the `log-edit-mode' (used when editing cvs log messages)."
   :group 'log-edit
-  :inherit (if (boundp 'vc-log-entry-mode) vc-log-entry-mode))
+  :inherit (if (boundp 'vc-log-entry-mode) vc-log-entry-mode
+	     (if (boundp 'vc-log-mode-map) vc-log-mode-map)))
 
 (defcustom log-edit-confirm t
   "*If non-nil, `log-edit-done' will request confirmation.
@@ -97,7 +98,7 @@
   :type '(hook :options (log-edit-insert-cvs-template
 			 log-edit-insert-changelog)))
 
-(defcustom log-edit-mode-hook nil
+(defcustom log-edit-mode-hook (if (boundp vc-log-mode-hook) vc-log-mode-hook)
   "*Hook run when entering `log-edit-mode'."
   :group 'log-edit
   :type 'hook)
@@ -166,12 +167,13 @@
 	    "Press \\[log-edit-done] when you are done editing.")))
 
 (define-derived-mode log-edit-mode text-mode "Log-Edit"
-  "Major mode for entering commit messages.
-This mode is intended for entering messages in a *cvs-commit*
-buffer when using PCL-CVS.  It provides a binding for the
-\\[log-edit-done] command that should be used when done editing
-to trigger the actual commit, as well as a few handy support
-commands.
+  "Major mode for editing version-control log messages.
+When done editing the log entry, just type \\[log-edit-done] which
+will trigger the actual commit of the file(s).
+Several other handy support commands are provided of course and
+the package from which this is used might also provide additional
+commands (under C-x v for VC, for example).
+
 \\{log-edit-mode-map}")
 
 (defun log-edit-hide-buf (&optional buf where)
@@ -445,4 +447,8 @@
       (when (cdr buffer-entry) (newline)))))
 
 (provide 'log-edit)
+
+;;; Change Log:
+;; $log$
+
 ;;; log-edit.el ends here