# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1015580144 0
# Node ID 8d961db288935aa9da808a55d4ba50be33fb4465
# Parent  88569453a212fbafc334bb8f75d353cc8e7df94e
(find-name-dired): Use shell-quote-argument.

diff -r 88569453a212 -r 8d961db28893 lisp/find-dired.el
--- a/lisp/find-dired.el	Fri Mar 08 08:35:08 2002 +0000
+++ b/lisp/find-dired.el	Fri Mar 08 09:35:44 2002 +0000
@@ -159,7 +159,7 @@
     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)