1 |
;;; find-dired.el --- run a `find' command and dired the output |
;;; find-dired.el --- run a `find' command and dired the output |
2 |
|
|
3 |
;; Copyright (C) 1992, 1994, 1995, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1992, 1994, 1995, 2000, 2002 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Roland McGrath <roland@gnu.org>, |
;; Author: Roland McGrath <roland@gnu.org>, |
6 |
;; Sebastian Kremer <sk@thp.uni-koeln.de> |
;; Sebastian Kremer <sk@thp.uni-koeln.de> |
159 |
find . -name 'PATTERN' -ls" |
find . -name 'PATTERN' -ls" |
160 |
(interactive |
(interactive |
161 |
"DFind-name (directory): \nsFind-name (filename wildcard): ") |
"DFind-name (directory): \nsFind-name (filename wildcard): ") |
162 |
(find-dired dir (concat "-name '" (shell-quote-argument pattern) "'"))) |
(find-dired dir (concat "-name " (shell-quote-argument pattern)))) |
163 |
|
|
164 |
;; This functionality suggested by |
;; This functionality suggested by |
165 |
;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc) |
;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc) |