diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-12-13 19:46:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-12-13 19:46:36 +0000 |
| commit | d9c1ce9ddcd2492142cc3f9ace70a09505163938 (patch) | |
| tree | 169e33e82b1be1c86d2f986318e65793712229ce /lisp/filecache.el | |
| parent | da14d1acd49df1c5d8f28d4b9fbeb4f61d844e18 (diff) | |
| download | emacs-d9c1ce9ddcd2492142cc3f9ace70a09505163938.tar.gz | |
(file-cache-add-directory-using-find):
Only set up file-cache-find-command-posix-flag if we will use it.
Diffstat (limited to 'lisp/filecache.el')
| -rw-r--r-- | lisp/filecache.el | 7 |
1 files changed, 4 insertions, 3 deletions
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 |