From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 24 Feb 2016 02:08:48 +0000 (+1100)
Subject: Fix error in add-change-log-entry when the entry has no newline
X-Git-Tag: emacs-26.0.90~2475
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fddbd8ca227d4dbd940e6dd72fecb35e26c3c27b;p=emacs.git

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.
---

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)))