# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1019752236 0
# Node ID f19c8ff457df81ffb6331b814e6fb785bf6381d7
# Parent  b8dcb8b4ef638db7ceed5856870bee33ba4182b0
(find-name-dired): Don't quote pattern twice.

diff -r b8dcb8b4ef63 -r f19c8ff457df lisp/find-dired.el
--- a/lisp/find-dired.el	Thu Apr 25 15:44:24 2002 +0000
+++ b/lisp/find-dired.el	Thu Apr 25 16:30:36 2002 +0000
@@ -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 @@
     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)