aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2000-10-24 11:27:41 +0000
committerDave Love2000-10-24 11:27:41 +0000
commitbc35d341cab38b8dce45d04cd25a6dfcd8b03d8c (patch)
tree958f0436480f4c1a5e1a306e49a647d2bf164b31
parent1946f901c62487b306c98f47a428b10271b68b8a (diff)
downloademacs-bc35d341cab38b8dce45d04cd25a6dfcd8b03d8c.tar.gz
emacs-bc35d341cab38b8dce45d04cd25a6dfcd8b03d8c.zip
(log-edit): Add :version and a :group for vc.
-rw-r--r--lisp/log-edit.el10
1 files changed, 6 insertions, 4 deletions
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 @@
5;; Author: Stefan Monnier <monnier@cs.yale.edu> 5;; Author: Stefan Monnier <monnier@cs.yale.edu>
6;; Keywords: pcl-cvs cvs commit log 6;; Keywords: pcl-cvs cvs commit log
7;; Version: $Name: $ 7;; Version: $Name: $
8;; Revision: $Id: log-edit.el,v 1.6 2000/06/02 02:28:39 monnier Exp $ 8;; Revision: $Id: log-edit.el,v 1.7 2000/06/02 23:03:31 monnier Exp $
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
11 11
@@ -44,8 +44,10 @@
44;;;; 44;;;;
45 45
46(defgroup log-edit nil 46(defgroup log-edit nil
47 "Major mode for editing commit messages for PCL-CVS." 47 "Major mode for editing RCS and CVS commit messages."
48 :group 'pcl-cvs 48 :group 'pcl-cvs
49 :group 'vc ; It's used by VC.
50 :version "21.1"
49 :prefix "log-edit-") 51 :prefix "log-edit-")
50 52
51;; compiler pacifiers 53;; compiler pacifiers
@@ -358,7 +360,7 @@ If we are between sub-paragraphs, return the previous subparagraph."
358 (end-of-line) 360 (end-of-line)
359 (if (search-backward "*" nil t) 361 (if (search-backward "*" nil t)
360 (list (progn (beginning-of-line) (point)) 362 (list (progn (beginning-of-line) (point))
361 (progn 363 (progn
362 (forward-line 1) 364 (forward-line 1)
363 (if (re-search-forward "^[ \t]*[\n*]" nil t) 365 (if (re-search-forward "^[ \t]*[\n*]" nil t)
364 (match-beginning 0) 366 (match-beginning 0)
@@ -399,7 +401,7 @@ The return value looks like this:
399where LOGBUFFER is the name of the ChangeLog buffer, and each 401where LOGBUFFER is the name of the ChangeLog buffer, and each
400\(ENTRYSTART . ENTRYEND\) pair is a buffer region." 402\(ENTRYSTART . ENTRYEND\) pair is a buffer region."
401 (save-excursion 403 (save-excursion
402 (let ((changelog-file-name 404 (let ((changelog-file-name
403 (let ((default-directory 405 (let ((default-directory
404 (file-name-directory (expand-file-name file)))) 406 (file-name-directory (expand-file-name file))))
405 ;; `find-change-log' uses `change-log-default-name' if set 407 ;; `find-change-log' uses `change-log-default-name' if set