changeset 32816:f4923452ea45

(log-edit): Add :version and a :group for vc.
author Dave Love <fx@gnu.org>
date Tue, 24 Oct 2000 11:27:41 +0000
parents 2359a616d429
children 329d12003f37
files lisp/log-edit.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/log-edit.el	Tue Oct 24 11:23:14 2000 +0000
+++ b/lisp/log-edit.el	Tue Oct 24 11:27:41 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.6 2000/06/02 02:28:39 monnier Exp $
+;; Revision: $Id: log-edit.el,v 1.7 2000/06/02 23:03:31 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -44,8 +44,10 @@
 ;;;; 
 
 (defgroup log-edit nil
-  "Major mode for editing commit messages for PCL-CVS."
+  "Major mode for editing RCS and CVS commit messages."
   :group 'pcl-cvs
+  :group 'vc				; It's used by VC.
+  :version "21.1"
   :prefix "log-edit-")
 
 ;; compiler pacifiers
@@ -358,7 +360,7 @@
     (end-of-line)
     (if (search-backward "*" nil t)
         (list (progn (beginning-of-line) (point))
-              (progn 
+              (progn
                 (forward-line 1)
                 (if (re-search-forward "^[ \t]*[\n*]" nil t)
                     (match-beginning 0)
@@ -399,7 +401,7 @@
 where LOGBUFFER is the name of the ChangeLog buffer, and each
 \(ENTRYSTART . ENTRYEND\) pair is a buffer region."
   (save-excursion
-    (let ((changelog-file-name 
+    (let ((changelog-file-name
 	   (let ((default-directory
 		   (file-name-directory (expand-file-name file))))
 	     ;; `find-change-log' uses `change-log-default-name' if set