# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1102967051 0
# Node ID d61290cbd2dd2f94389661813347da00b739adfb
# Parent  30845c637a6a5c82cb98d65e25f8bd7bc6f6f21f
(file-cache-add-directory-using-find):
Only set up file-cache-find-command-posix-flag if we will use it.

diff -r 30845c637a6a -r d61290cbd2dd lisp/filecache.el
--- a/lisp/filecache.el	Mon Dec 13 19:43:13 2004 +0000
+++ b/lisp/filecache.el	Mon Dec 13 19:44:11 2004 +0000
@@ -337,9 +337,10 @@
 Find is run in DIRECTORY."
   (interactive "DAdd files under directory: ")
   (let ((dir (expand-file-name directory)))
-    (if (eq file-cache-find-command-posix-flag 'not-defined)
-        (setq file-cache-find-command-posix-flag
-	      (executable-command-find-posix-p file-cache-find-command)))
+    (when (memq system-type '(windows-nt cygwin))
+      (if (eq file-cache-find-command-posix-flag 'not-defined)
+	  (setq file-cache-find-command-posix-flag
+		(executable-command-find-posix-p file-cache-find-command))))
     (set-buffer (get-buffer-create file-cache-buffer))
     (erase-buffer)
     (call-process file-cache-find-command nil