diff options
| author | Andreas Schwab <schwab@suse.de> | 2002-04-25 16:30:36 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2002-04-25 16:30:36 +0000 |
| commit | 529c7ec5403c89deff57cfcae97bab76820e810d (patch) | |
| tree | 56d1dd197cca02cc1c3e89066b098e529b885c73 /lisp/find-dired.el | |
| parent | 0f17072ac8d4068c8033408339fbfcb67c032ae7 (diff) | |
| download | emacs-529c7ec5403c89deff57cfcae97bab76820e810d.tar.gz | |
(find-name-dired): Don't quote pattern twice.
Diffstat (limited to 'lisp/find-dired.el')
| -rw-r--r-- | lisp/find-dired.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |