diff options
| -rw-r--r-- | lisp/vc/add-log.el | 6 |
1 files 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." | |||
| 911 | "\\(\\s \\|[(),:]\\)") | 911 | "\\(\\s \\|[(),:]\\)") |
| 912 | bound t))) | 912 | bound t))) |
| 913 | ;; Add to the existing item for the same file. | 913 | ;; Add to the existing item for the same file. |
| 914 | (re-search-forward "^\\s *$\\|^\\s \\*") | 914 | (if (re-search-forward "^\\s *$\\|^\\s \\*" nil t) |
| 915 | (goto-char (match-beginning 0)) | 915 | (goto-char (match-beginning 0)) |
| 916 | (goto-char (point-max)) | ||
| 917 | (insert "\n")) | ||
| 916 | ;; Delete excess empty lines; make just 2. | 918 | ;; Delete excess empty lines; make just 2. |
| 917 | (while (and (not (eobp)) (looking-at "^\\s *$")) | 919 | (while (and (not (eobp)) (looking-at "^\\s *$")) |
| 918 | (delete-region (point) (line-beginning-position 2))) | 920 | (delete-region (point) (line-beginning-position 2))) |