summaryrefslogtreecommitdiff
path: root/lisp/progmodes/project.el
diff options
context:
space:
mode:
authorJim Porter <jporterbugs@gmail.com>2021-05-05 16:05:25 -0700
committerDmitry Gutov <dgutov@yandex.ru>2021-05-06 20:44:50 +0300
commit704755a568300985caa9e143f46f17d364e5eda9 (patch)
treea13188c3f1382e0a4a13523c1e9f35368940d404 /lisp/progmodes/project.el
parent8616e4f747264da5699a9ac93961209f21f9dd6d (diff)
downloademacs-704755a568300985caa9e143f46f17d364e5eda9.tar.gz
Shell-quote the directory when finding a project's files
* lisp/progmodes/project.el (project--files-in-directory): Shell-quote the directory (bug48247).
Diffstat (limited to 'lisp/progmodes/project.el')
-rw-r--r--lisp/progmodes/project.el5
1 files changed, 3 insertions, 2 deletions
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 "(")