files.el:

   - Check file existance when openning file with
     `find-file-magic-files-alist'

diff --git a/lisp/files.el b/lisp/files.el
index c200929..c36b101 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -932,7 +932,8 @@ conversion, find-file-hooks, automatic uncompression, etc.
   "Find entry in `find-file-magic-files-alist' that matches FILENAME."
   (find filename find-file-magic-files-alist :key #'car
        :test #'(lambda (fn predicate)
-                 (funcall predicate fn))))
+                  (and (file-exists-p fn)
+                       (funcall predicate fn)))))
 
 (defun find-file-noselect (filename &optional nowarn rawfile)
   "Read file FILENAME into a buffer and return the buffer.