Shell-quote the directory when finding a project's files

* lisp/progmodes/project.el (project--files-in-directory):
Shell-quote the directory (bug48247).

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 24feeaf1298e7205e238fb0628496d899533bfe3..047f55ed1ae2d89387d0a34a2500669df6dfeada 100644 (file)
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -299,8 +299,9 @@ to find the list of ignores for each directory."
          (localdir (file-name-unquote (file-local-name (expand-file-name dir))))
          (command (format "%s %s %s -type f %s -print0"
                           find-program
-                          ;; In case DIR is a symlink.
-                          (file-name-as-directory localdir)
+                          (shell-quote-argument
+                           ;; In case DIR is a symlink.
+                           (file-name-as-directory localdir))
                           (xref--find-ignores-arguments ignores localdir)
                           (if files
                               (concat (shell-quote-argument "(")