# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 743040374 0
# Node ID 0000c3af1836f8c9ed7626b405fa1da2a441511c
# Parent  9f0a271fa24ff345a5d51a48593ce30e9b79aa64
(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.

diff -r 9f0a271fa24f -r 0000c3af1836 lisp/vc.el
--- 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)