From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Mar 2002 09:35:44 +0000 (+0000)
Subject: (find-name-dired): Use shell-quote-argument.
X-Git-Tag: ttn-vms-21-2-B4~16282
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff39e69ccd6fd617b14b05a60c2c98b6b3784b12;p=emacs.git

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

diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index d07c983c1dc..4e86c792ab4 100644
--- 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)