From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 13 Dec 2004 19:43:13 +0000 (+0000)
Subject: (file-cache-add-directory-using-find):
X-Git-Tag: ttn-vms-21-2-B4~3282
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da14d1acd49df1c5d8f28d4b9fbeb4f61d844e18;p=emacs.git

(file-cache-add-directory-using-find):
Only test file-cache-find-command-posix-flag on some systems.
---

diff --git a/lisp/filecache.el b/lisp/filecache.el
index bd0b0f77781..df1f1b548d0 100644
--- a/lisp/filecache.el
+++ b/lisp/filecache.el
@@ -345,13 +345,11 @@ Find is run in DIRECTORY."
     (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)))