diff options
| author | Andreas Schwab <schwab@suse.de> | 2002-04-25 16:30:49 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2002-04-25 16:30:49 +0000 |
| commit | 62c804f83683d003691b7fdc8d72b9f9f4594705 (patch) | |
| tree | 3482facc9511485aca209dac02f938e7107fa24f /lisp/find-dired.el | |
| parent | 0344bc5a314130e9f5d2c5b0760c5c4893a95cf1 (diff) | |
| download | emacs-62c804f83683d003691b7fdc8d72b9f9f4594705.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) |