Make fileloop skip missing files

* lisp/fileloop.el (fileloop-next-file): If a file doesn't exist,
skip to the next one (bug#44979).

diff --git a/etc/NEWS b/etc/NEWS
index d378a8189099adc9e4809b2ed53098e1148d3cd8..36dc98d8c09e0538e6f0e9a4f14d5e6db7ffb595 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2340,6 +2340,9 @@ This command, called interactively, toggles the local value of
 
 ** Miscellaneous
 
+---
+*** fileloop will now skip missing files instead of signalling an error.
+
 +++
 *** ".dir-locals.el" now supports setting 'auto-mode-alist'.
 The new 'auto-mode-alist' specification in ".dir-locals.el" files can

diff --git a/lisp/fileloop.el b/lisp/fileloop.el
index 8a2755d69a5e5fac2d9e4baf33d5396f41f06849..45b9cea93978de66a821643512c903b5a012935d 100644 (file)
--- a/lisp/fileloop.el
+++ b/lisp/fileloop.el
@@ -120,7 +120,10 @@ operating on the next file and nil otherwise."
         (kill-all-local-variables)
         (erase-buffer)
         (setq new next)
-        (insert-file-contents new nil))
+        (condition-case nil
+            (insert-file-contents new nil)
+          (file-missing
+           (fileloop-next-file novisit))))
       new)))
 
 (defun fileloop-continue ()