mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

(vc-comment-to-change-log): Complete rewrite. Do not use

Browse Source 
vc-update-change-log.  Instead, snarf last comment from vc-comment-ring and
insert it with add-change-log-entry-other-window.
This commit is contained in:
Roland McGrath 1993-07-18 23:54:45 +00:00
parent 6258d3afe1
commit 3b4dd9a931
1 changed files with 39 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
lisp/vc.el
View File

@ -584,15 +584,46 @@ popped up to accept a comment."
;;; Here is a checkin hook that may prove useful to sites using the
;;; ChangeLog facility supported by Emacs.
(defun vc-comment-to-change-log ()
"Update change log from VC change comments entered for the current file.
See `vc-update-change-log'."
(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'."
(interactive)
(let ((log (find-change-log)))
(if log
(vc-update-change-log
(file-relative-name buffer-file-name
(file-name-directory (expand-file-name log)))))))
(let (;; Extract the comment first so we get any error before doing anything.
(comment (ring-ref vc-comment-ring 0))
;; Don't let add-change-log-entry insert anything but the file name.
(add-log-current-defun-function 'ignore)
end)
;; Call add-log to do half the work.
(if (interactive-p)
;; This is better than repeating its interactive spec here.
(call-interactively 'add-change-log-entry-other-window)
(add-change-log-entry-other-window whoami file-name))
;; Insert the VC comment, leaving point before it.
(setq end (save-excursion (insert comment) (point-marker)))
(if (looking-at "\\s *\\s(")
;; It starts with an open-paren, as in "(foo): Frobbed."
;; So remove the ": " add-change-log-entry-other-window inserted.
(delete-char -2))
;; Canonicalize the white space between the file name and comment.
(just-one-space)
;; Indent rest of the text the same way add-log indented the first line.
(let ((indentation (current-indentation)))
(save-excursion
(while (< (point) end)
(forward-line 1)
(indent-to indentation))
;; Canonicalize the white space at the end of the entry so it is
;; separated from the next entry by a single blank line.
(delete-char (- (skip-syntax-backward " ")))
(or (eobp) (looking-at "\n\n")
(insert "\n"))))
;; Fill the inserted text, preserving open-parens at bol.
(let ((paragraph-separate (concat paragraph-separate "\\|^\\s *\\s("))
(paragraph-start (concat paragraph-start "\\|^\\s *\\s(")))
(fill-region (point) end))))
(defun vc-finish-logentry (&optional nocomment)
"Complete the operation implied by the current log entry."