From: Andreas Schwab <schwab@suse.de>
Date: Thu, 25 Apr 2002 16:30:49 +0000 (+0000)
Subject: (find-name-dired): Don't quote pattern twice.
X-Git-Tag: ttn-vms-21-2-B4~15408
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=62c804f83683d003691b7fdc8d72b9f9f4594705;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d8cdb66090..9815f43137a 100644
--- 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 4e86c792ab4..01d89fd9116 100644
--- 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)