Commit df1dbaf1 authored by Dmitry Gutov's avatar Dmitry Gutov Committed by Lars Ingebrigtsen
Browse files

Make fileloop skip missing files

* lisp/fileloop.el (fileloop-next-file): If a file doesn't exist,
skip to the next one (bug#44979).
parent ce8d5c6f
Pipeline #11654 failed with stages
in 55 seconds
...@@ -2340,6 +2340,9 @@ This command, called interactively, toggles the local value of ...@@ -2340,6 +2340,9 @@ This command, called interactively, toggles the local value of
** Miscellaneous ** Miscellaneous
---
*** fileloop will now skip missing files instead of signalling an error.
+++ +++
*** ".dir-locals.el" now supports setting 'auto-mode-alist'. *** ".dir-locals.el" now supports setting 'auto-mode-alist'.
The new 'auto-mode-alist' specification in ".dir-locals.el" files can The new 'auto-mode-alist' specification in ".dir-locals.el" files can
......
...@@ -120,7 +120,10 @@ operating on the next file and nil otherwise." ...@@ -120,7 +120,10 @@ operating on the next file and nil otherwise."
(kill-all-local-variables) (kill-all-local-variables)
(erase-buffer) (erase-buffer)
(setq new next) (setq new next)
(insert-file-contents new nil)) (condition-case nil
(insert-file-contents new nil)
(file-missing
(fileloop-next-file novisit))))
new))) new)))
(defun fileloop-continue () (defun fileloop-continue ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment