Fix non-string args to file-exists-p! macro

2019-10-12 00:21:23 -04:00 · 2019-10-12 00:21:23 -04:00 · 30c091d3f5
commit 30c091d3f5
parent 1d072a6c9e
1 changed files with 2 additions and 1 deletions
--- a/core/autoload/files.el
+++ b/core/autoload/files.el
@ -33,7 +33,8 @@ This is used by `file-exists-p!' and `project-file-exists-p!'."
      (let ((filevar (make-symbol "file")))
        `(let* ((file-name-handler-alist nil)
                (,filevar ,spec))
-           (and ,(if directory
+           (and (stringp ,filevar)
+                ,(if directory
                     `(let ((default-directory ,directory))
                        (,exists-fn ,filevar))
                   (list exists-fn filevar))