aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/filecache.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/filecache.el')
-rw-r--r--lisp/filecache.el19
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/filecache.el b/lisp/filecache.el
index bd0b0f77781..90287ba5eef 100644
--- a/lisp/filecache.el
+++ b/lisp/filecache.el
@@ -337,21 +337,20 @@ in each directory, not to the directory list itself."
337Find is run in DIRECTORY." 337Find is run in DIRECTORY."
338 (interactive "DAdd files under directory: ") 338 (interactive "DAdd files under directory: ")
339 (let ((dir (expand-file-name directory))) 339 (let ((dir (expand-file-name directory)))
340 (if (eq file-cache-find-command-posix-flag 'not-defined) 340 (when (memq system-type '(windows-nt cygwin))
341 (setq file-cache-find-command-posix-flag 341 (if (eq file-cache-find-command-posix-flag 'not-defined)
342 (executable-command-find-posix-p file-cache-find-command))) 342 (setq file-cache-find-command-posix-flag
343 (executable-command-find-posix-p file-cache-find-command))))
343 (set-buffer (get-buffer-create file-cache-buffer)) 344 (set-buffer (get-buffer-create file-cache-buffer))
344 (erase-buffer) 345 (erase-buffer)
345 (call-process file-cache-find-command nil 346 (call-process file-cache-find-command nil
346 (get-buffer file-cache-buffer) nil 347 (get-buffer file-cache-buffer) nil
347 dir "-name" 348 dir "-name"
348 (cond 349 (if (memq system-type '(windows-nt cygwin))
349 (file-cache-find-command-posix-flag 350 (if file-cache-find-command-posix-flag
350 "\\*") 351 "\\*"
351 ((eq system-type 'windows-nt) 352 "'*'")
352 "'*'") 353 "*")
353 (t
354 "*"))
355 "-print") 354 "-print")
356 (file-cache-add-from-file-cache-buffer))) 355 (file-cache-add-from-file-cache-buffer)))
357 356