diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-12-13 19:43:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-12-13 19:43:13 +0000 |
| commit | da14d1acd49df1c5d8f28d4b9fbeb4f61d844e18 (patch) | |
| tree | 3cb4b0ba185180d84ca30193c62152ccb1508f28 /lisp/filecache.el | |
| parent | ca0eea298f2ae9a1acaf24cf6dd690bd636ceadc (diff) | |
| download | emacs-da14d1acd49df1c5d8f28d4b9fbeb4f61d844e18.tar.gz | |
(file-cache-add-directory-using-find):
Only test file-cache-find-command-posix-flag on some systems.
Diffstat (limited to 'lisp/filecache.el')
| -rw-r--r-- | lisp/filecache.el | 12 |
1 files 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))) |