Mercurial > emacs
changeset 4156:0000c3af1836
(vc-comment-to-change-log): Canonicalize following whitespace after
filling, not before. Set END to point at end of indentation.
Skip whitespace chars up to END before skipping back to delete.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Mon, 19 Jul 1993 00:06:14 +0000 |
| parents | 9f0a271fa24f |
| children | d2316090d029 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Sun Jul 18 23:54:45 1993 +0000 +++ b/lisp/vc.el Mon Jul 19 00:06:14 1993 +0000 @@ -614,15 +614,17 @@ (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")))) + (setq end (point)))) ;; 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)))) + (fill-region (point) end)) + ;; Canonicalize the white space at the end of the entry so it is + ;; separated from the next entry by a single blank line. + (skip-syntax-forward " " end) + (delete-char (- (skip-syntax-backward " "))) + (or (eobp) (looking-at "\n\n") + (insert "\n")))) (defun vc-finish-logentry (&optional nocomment)