Commit 62c804f8 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

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

parent 0344bc5a
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> 2002-04-26 Miles Bader <miles@gnu.org>
* cus-edit.el (customize-face, customize-face-other-window): * cus-edit.el (customize-face, customize-face-other-window):
......
;;; find-dired.el --- run a `find' command and dired the output ;;; 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>, ;; Author: Roland McGrath <roland@gnu.org>,
;; Sebastian Kremer <sk@thp.uni-koeln.de> ;; Sebastian Kremer <sk@thp.uni-koeln.de>
...@@ -159,7 +159,7 @@ The command run (after changing into DIR) is ...@@ -159,7 +159,7 @@ The command run (after changing into DIR) is
find . -name 'PATTERN' -ls" find . -name 'PATTERN' -ls"
(interactive (interactive
"DFind-name (directory): \nsFind-name (filename wildcard): ") "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 ;; This functionality suggested by
;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc) ;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment