diff options
| author | Dave Love | 2000-10-24 11:27:41 +0000 |
|---|---|---|
| committer | Dave Love | 2000-10-24 11:27:41 +0000 |
| commit | bc35d341cab38b8dce45d04cd25a6dfcd8b03d8c (patch) | |
| tree | 958f0436480f4c1a5e1a306e49a647d2bf164b31 | |
| parent | 1946f901c62487b306c98f47a428b10271b68b8a (diff) | |
| download | emacs-bc35d341cab38b8dce45d04cd25a6dfcd8b03d8c.tar.gz emacs-bc35d341cab38b8dce45d04cd25a6dfcd8b03d8c.zip | |
(log-edit): Add :version and a :group for vc.
| -rw-r--r-- | lisp/log-edit.el | 10 |
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: | |||
| 399 | where LOGBUFFER is the name of the ChangeLog buffer, and each | 401 | where 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 |