changeset 43775:8d961db28893

(find-name-dired): Use shell-quote-argument.
author Richard M. Stallman <rms@gnu.org>
date Fri, 08 Mar 2002 09:35:44 +0000
parents 88569453a212
children 5de6df44f85f
files lisp/find-dired.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)