(find-name-dired): Use shell-quote-argument.

ff39e69c · Richard M. Stallman · 007776bc · ff39e69c
Commit ff39e69c authored Mar 08, 2002 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/find-dired.el lisp/find-dired.el +1 -1

No files found.
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -159,7 +159,7 @@ The command run (after changing into DIR) is
    find . -name 'PATTERN' -ls"
  (interactive
   "DFind-name (directory): \nsFind-name (filename wildcard): ")
-  (find-dired dir (concat "-name '" pattern "'")))
+  (find-dired dir (concat "-name '" (shell-quote-argument pattern) "'")))

 ;; This functionality suggested by
 ;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc)