From 499b43d4cc4aa8fd1131246aa544ab81e894e8da Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 28 Feb 2017 00:53:46 +0200 Subject: [PATCH] * lisp/vc/add-log.el (change-log-next-buffer): Check if file exists before adding it to the list of files. --- lisp/vc/add-log.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) 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) -- 2.39.5