Mercurial > emacs
diff lisp/filecache.el @ 58944:d61290cbd2dd
(file-cache-add-directory-using-find):
Only set up file-cache-find-command-posix-flag if we will use it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 Dec 2004 19:44:11 +0000 |
| parents | 30845c637a6a |
| children | 6fb026ad601f fb79180b618d |
line wrap: on
line diff
--- 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