(find-grep-dired): Use -type f.

diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index a46c6c651507c04db7444bd38d7785db027d013a..daa610af18a4e0e1ac21fd356c8fcb7d4ef698bf 100644 (file)
--- 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)