Mercurial > emacs
changeset 18580:717e09103d06
(find-grep-dired): Use -type f.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 04 Jul 1997 00:11:24 +0000 |
| parents | 6a0e208faefd |
| children | 45f27efe77c7 |
| files | lisp/find-dired.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/find-dired.el Thu Jul 03 23:33:46 1997 +0000 +++ b/lisp/find-dired.el Fri Jul 04 00:11:24 1997 +0000 @@ -143,8 +143,11 @@ (interactive "DFind-grep (directory): \nsFind-grep (grep regexp): ") ;; find -exec doesn't allow shell i/o redirections in the command, ;; or we could use `grep -l >/dev/null' + ;; We use -type f, not ! -type d, to avoid getting screwed + ;; by FIFOs and devices. I'm not sure what's best to do + ;; about symlinks, so as far as I know this is not wrong. (find-dired dir - (concat "! -type d -exec grep " find-grep-options " " + (concat "-type f -exec grep " find-grep-options " " args " {} \\\; "))) (defun find-dired-filter (proc string)