(find-name-dired): Don't quote pattern twice.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d8cdb6..9815f43 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-04-25  Andreas Schwab  <schwab@suse.de>
+
+       * find-dired.el (find-name-dired): Don't quote pattern twice.
+
 2002-04-26  Miles Bader  <miles@gnu.org>
 
        * cus-edit.el (customize-face, customize-face-other-window):

diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index 4e86c79..01d89fd 100644 (file)
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -1,6 +1,6 @@
 ;;; find-dired.el --- run a `find' command and dired the output
 
-;; Copyright (C) 1992, 1994, 1995, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1994, 1995, 2000, 2002 Free Software Foundation, Inc.
 
 ;; Author: Roland McGrath <roland@gnu.org>,
 ;;        Sebastian Kremer <sk@thp.uni-koeln.de>
@@ -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 '" (shell-quote-argument pattern) "'")))
+  (find-dired dir (concat "-name " (shell-quote-argument pattern))))
 
 ;; This functionality suggested by
 ;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc)