shell-quote-argument DIR when appropriate

[gnu-emacs] / lisp / progmodes / project.el

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 9c8a88c80fc8651ab7e7848ea1776793a54b0d56..a51c383b93b9b9a41d3cc191db61a1d29f3decdf 100644 (file)
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -172,7 +172,8 @@ to find the list of ignores for each directory."
            (let ((command
                   (format "%s %s %s -type f -print0"
                           find-program
-                          dir
+                           (shell-quote-argument
+                            (expand-file-name dir))
                           (xref--find-ignores-arguments
                            (project-ignores project dir)
                            (expand-file-name dir)))))