# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1160138952 0
# Node ID 4dce8f52071241cf8cc4c74592eb6eedf919c7fa
# Parent  2bba5aa7a1a6fb027e96788418d86d04e0354ec7
(ido-wide-find-dirs-or-files): Use shell-quote-argument.

diff -r 2bba5aa7a1a6 -r 4dce8f520712 lisp/ido.el
--- a/lisp/ido.el	Fri Oct 06 11:05:07 2006 +0000
+++ b/lisp/ido.el	Fri Oct 06 12:49:12 2006 +0000
@@ -3136,7 +3136,12 @@
   (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