Mercurial > emacs
changeset 58943:30845c637a6a
(file-cache-add-directory-using-find):
Only test file-cache-find-command-posix-flag on some systems.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 Dec 2004 19:43:13 +0000 |
| parents | 1d2e96b9ab80 |
| children | d61290cbd2dd |
| files | lisp/filecache.el |
| diffstat | 1 files changed, 5 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/filecache.el Mon Dec 13 19:41:34 2004 +0000 +++ b/lisp/filecache.el Mon Dec 13 19:43:13 2004 +0000 @@ -345,13 +345,11 @@ (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)))