From: Jim Porter <jporterbugs@gmail.com>
Date: Wed, 5 May 2021 23:05:25 +0000 (-0700)
Subject: Shell-quote the directory when finding a project's files
X-Git-Tag: emacs-28.0.90~2564
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=704755a568300985caa9e143f46f17d364e5eda9;p=emacs.git

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 24feeaf1298..047f55ed1ae 100644
--- 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 "(")