Mercurial > emacs
changeset 20967:e57454838582
(vc-checkin-hook): Add :options.
(vc-checkin, vc-comment-to-change-log): Doc fix.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 24 Feb 1998 12:54:05 +0000 |
| parents | 1abf4d6ec488 |
| children | 7072722c5071 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Tue Feb 24 12:45:02 1998 +0000 +++ b/lisp/vc.el Tue Feb 24 12:54:05 1998 +0000 @@ -200,9 +200,10 @@ ;;;###autoload (defcustom vc-checkin-hook nil - "*Normal hook (List of functions) run after a checkin is done. + "*Normal hook (list of functions) run after a checkin is done. See `run-hooks'." :type 'hook + :options '(vc-comment-to-change-log) :group 'vc) ;;;###autoload @@ -1101,19 +1102,21 @@ \(if nil increment the current level). The file is either retained with write permissions zeroed, or deleted (according to the value of `vc-keep-workfiles'). If the back-end is CVS, a writable workfile is always kept. -COMMENT is a comment string; if omitted, a buffer is -popped up to accept a comment." +COMMENT is a comment string; if omitted, a buffer is popped up to accept a +comment. + +Runs the normal hook `vc-checkin-hook'." (vc-start-entry file rev comment "Enter a change comment." 'vc-backend-checkin 'vc-checkin-hook)) -;;; Here is a checkin hook that may prove useful to sites using the -;;; ChangeLog facility supported by Emacs. (defun vc-comment-to-change-log (&optional whoami file-name) "Enter last VC comment into change log file for current buffer's file. Optional arg (interactive prefix) non-nil means prompt for user name and site. Second arg is file name of change log. \ -If nil, uses `change-log-default-name'." +If nil, uses `change-log-default-name'. + +May be useful as a `vc-checkin-hook' to update change logs automatically." (interactive (if current-prefix-arg (list current-prefix-arg (prompt-for-change-log-name))))