From da14d1acd49df1c5d8f28d4b9fbeb4f61d844e18 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 13 Dec 2004 19:43:13 +0000 Subject: [PATCH] (file-cache-add-directory-using-find): Only test file-cache-find-command-posix-flag on some systems. --- lisp/filecache.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) 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))) -- 2.39.2