From d9c1ce9ddcd2492142cc3f9ace70a09505163938 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 13 Dec 2004 19:46:36 +0000
Subject: (file-cache-add-directory-using-find): Only set up
file-cache-find-command-posix-flag if we will use it.
---
lisp/filecache.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
(limited to 'lisp/filecache.el')
diff --git a/lisp/filecache.el b/lisp/filecache.el
index df1f1b548d0..90287ba5eef 100644
--- a/lisp/filecache.el
+++ b/lisp/filecache.el
@@ -337,9 +337,10 @@ in each directory, not to the directory list itself."
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
--
cgit v1.2.3