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

ec579201 · Kim F. Storm · 5879ac68 · ec579201
Commit ec579201 authored Oct 06, 2006 by Kim F. Storm
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ido.el lisp/ido.el +6 -1

No files found.
--- 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