diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-04 00:11:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-04 00:11:24 +0000 |
| commit | 3443c832913b62b326c9e77515fda3c0d708b97f (patch) | |
| tree | d3de1f8f73546acf815ad5b90c8a2033d2a44042 /lisp/find-dired.el | |
| parent | 1c71da93f3fd8267195e20780413d992edb3b87e (diff) | |
| download | emacs-3443c832913b62b326c9e77515fda3c0d708b97f.tar.gz | |
(find-grep-dired): Use -type f.
Diffstat (limited to 'lisp/find-dired.el')
| -rw-r--r-- | lisp/find-dired.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/find-dired.el b/lisp/find-dired.el index a46c6c65150..daa610af18a 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -143,8 +143,11 @@ Thus ARG can also contain additional grep options." (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) |