From: Dave Love Date: Tue, 24 Oct 2000 11:27:41 +0000 (+0000) Subject: (log-edit): Add :version and a :group for vc. X-Git-Tag: emacs-pretest-21.0.90~627 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc35d341cab38b8dce45d04cd25a6dfcd8b03d8c;p=emacs.git (log-edit): Add :version and a :group for vc. --- diff --git a/lisp/log-edit.el b/lisp/log-edit.el index 0f8dd68d214..bc766d0226e 100644 --- a/lisp/log-edit.el +++ b/lisp/log-edit.el @@ -5,7 +5,7 @@ ;; Author: Stefan Monnier ;; 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 @@ If we are between sub-paragraphs, return the previous subparagraph." (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 @@ The return value looks like this: 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