master 704755a 2/2: Shell-quote the directory when finding a project's files

[Dmitry Gutov]

branch: master
commit 704755a568300985caa9e143f46f17d364e5eda9
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Shell-quote the directory when finding a project's files
    
    * lisp/progmodes/project.el (project--files-in-directory):
    Shell-quote the directory (bug48247).
---
 lisp/progmodes/project.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 24feeaf..047f55e 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 "(")