# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1102966993 0
# Node ID 30845c637a6a5c82cb98d65e25f8bd7bc6f6f21f
# Parent  1d2e96b9ab8082549c0d65830e7d9a93109e3b58
(file-cache-add-directory-using-find):
Only test file-cache-find-command-posix-flag on some systems.

diff -r 1d2e96b9ab80 -r 30845c637a6a lisp/filecache.el
--- a/lisp/filecache.el	Mon Dec 13 19:41:34 2004 +0000
+++ b/lisp/filecache.el	Mon Dec 13 19:43:13 2004 +0000
@@ -345,13 +345,11 @@
     (call-process file-cache-find-command nil
 		  (get-buffer file-cache-buffer) nil
 		  dir "-name"
-                  (cond
-                   (file-cache-find-command-posix-flag
-                    "\\*")
-                   ((eq system-type 'windows-nt)
-                    "'*'")
-                   (t
-                    "*"))
+		  (if (memq system-type '(windows-nt cygwin))
+		      (if file-cache-find-command-posix-flag
+			  "\\*"
+			"'*'")
+		    "*")
 		  "-print")
     (file-cache-add-from-file-cache-buffer)))