mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

(vc-comment-to-change-log): Canonicalize following whitespace after

Browse Source 
filling, not before.  Set END to point at end of indentation.
Skip whitespace chars up to END before skipping back to delete.
This commit is contained in:
Roland McGrath 1993-07-19 00:06:14 +00:00
parent 3b4dd9a931
commit c124b1b47a
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/vc.el
View File

@ -614,15 +614,17 @@ If nil, uses `change-log-default-name'."
(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)