From: Kim F. Storm <storm@cua.dk>
Date: Fri, 6 Oct 2006 12:49:12 +0000 (+0000)
Subject: (ido-wide-find-dirs-or-files): Use shell-quote-argument.
X-Git-Tag: emacs-pretest-22.0.90~221
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec579201eee79908000edc03b34731995400f9e4;p=emacs.git

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

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