# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867975084 0
# Node ID 717e09103d06f52a8e0c25e8f34871690fb87720
# Parent  6a0e208faefd2af82a3d54d9c246165513d0b5cf
(find-grep-dired): Use -type f.

diff -r 6a0e208faefd -r 717e09103d06 lisp/find-dired.el
--- 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)