* 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 52be9c5a2be92175e6cba35d88bfb9b148a5db11..ceef5724dce33043a2e525dc2f454fb595ccd367 100644 (file)
--- 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)