From: Juri Linkov <juri@linkov.net>
Date: Mon, 27 Feb 2017 22:53:46 +0000 (+0200)
Subject: * lisp/vc/add-log.el (change-log-next-buffer): Check if file exists
X-Git-Tag: emacs-26.0.90~698
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=499b43d4cc4aa8fd1131246aa544ab81e894e8da;p=emacs.git

* lisp/vc/add-log.el (change-log-next-buffer): Check if file exists

before adding it to the list of files.
---

diff --git a/lisp/vc/add-log.el b/lisp/vc/add-log.el
index 52be9c5a2be..ceef5724dce 100644
--- a/lisp/vc/add-log.el
+++ b/lisp/vc/add-log.el
@@ -1077,14 +1077,16 @@ A sequence of buffers is formed by ChangeLog files with decreasing
 numeric file name suffixes in the directory of the initial ChangeLog
 file were isearch was started."
   (let* ((name (change-log-name))
-	 (files (cons name (sort (file-expand-wildcards
-				  (concat name "[-.][0-9]*"))
-				 (lambda (a b)
-                                   ;; The file's extension may not have a valid
-                                   ;; version form (e.g. VC backup revisions).
-                                   (ignore-errors
-                                     (version< (substring b (length name))
-                                               (substring a (length name))))))))
+	 (files (append
+                 (and (file-exists-p name) (list name))
+                 (sort (file-expand-wildcards
+                        (concat name "[-.][0-9]*"))
+                       (lambda (a b)
+                         ;; The file's extension may not have a valid
+                         ;; version form (e.g. VC backup revisions).
+                         (ignore-errors
+                           (version< (substring b (length name))
+                                     (substring a (length name))))))))
 	 (files (if isearch-forward files (reverse files)))
 	 (file (if wrap
 		   (car files)