(ido-wide-find-dirs-or-files): Use shell-quote-argument.

1 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ido.el b/lisp/ido.el
index b68a4622ef8..d4ed85ea105 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3136,7 +3136,12 @@ for first matching file."
   (let ((filenames
          (split-string
           (shell-command-to-string
-           (concat "find " dir " -name \"" (if prefix "" "*") file "*\" -type " (if finddir "d" "f") " -print"))))
+           (concat "find "
+                   (shell-quote-argument dir)
+                   " -name "
+                   (shell-quote-argument
+                    (concat (if prefix "" "*") file "*"))
+                   " -type " (if finddir "d" "f") " -print"))))
         filename d f
         res)
     (while filenames