From fddbd8ca227d4dbd940e6dd72fecb35e26c3c27b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 24 Feb 2016 13:08:48 +1100 Subject: [PATCH] Fix error in add-change-log-entry when the entry has no newline * lisp/vc/add-log.el (add-change-log-entry): The entry in the ChangeLog may end without a new line starting with blanks. --- lisp/vc/add-log.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/vc/add-log.el b/lisp/vc/add-log.el index 112bc7bd9a1..d6c1fc203db 100644 --- a/lisp/vc/add-log.el +++ b/lisp/vc/add-log.el @@ -911,8 +911,10 @@ non-nil, otherwise in local time." "\\(\\s \\|[(),:]\\)") bound t))) ;; Add to the existing item for the same file. - (re-search-forward "^\\s *$\\|^\\s \\*") - (goto-char (match-beginning 0)) + (if (re-search-forward "^\\s *$\\|^\\s \\*" nil t) + (goto-char (match-beginning 0)) + (goto-char (point-max)) + (insert "\n")) ;; Delete excess empty lines; make just 2. (while (and (not (eobp)) (looking-at "^\\s *$")) (delete-region (point) (line-beginning-position 2))) -- 2.39.5