mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(log-edit): Add :version and a :group for vc.

Browse Source
This commit is contained in:
Dave Love 2000-10-24 11:27:41 +00:00
parent 1946f901c6
commit bc35d341ca
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/log-edit.el
View File

@ -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 @@ 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