diff options
| author | Richard M. Stallman | 2004-12-13 19:43:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-12-13 19:43:13 +0000 |
| commit | da14d1acd49df1c5d8f28d4b9fbeb4f61d844e18 (patch) | |
| tree | 3cb4b0ba185180d84ca30193c62152ccb1508f28 | |
| parent | ca0eea298f2ae9a1acaf24cf6dd690bd636ceadc (diff) | |
| download | emacs-da14d1acd49df1c5d8f28d4b9fbeb4f61d844e18.tar.gz emacs-da14d1acd49df1c5d8f28d4b9fbeb4f61d844e18.zip | |
(file-cache-add-directory-using-find):
Only test file-cache-find-command-posix-flag on some systems.
| -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." | |||
| 345 | (call-process file-cache-find-command nil | 345 | (call-process file-cache-find-command nil |
| 346 | (get-buffer file-cache-buffer) nil | 346 | (get-buffer file-cache-buffer) nil |
| 347 | dir "-name" | 347 | dir "-name" |
| 348 | (cond | 348 | (if (memq system-type '(windows-nt cygwin)) |
| 349 | (file-cache-find-command-posix-flag | 349 | (if file-cache-find-command-posix-flag |
| 350 | "\\*") | 350 | "\\*" |
| 351 | ((eq system-type 'windows-nt) | 351 | "'*'") |
| 352 | "'*'") | 352 | "*") |
| 353 | (t | ||
| 354 | "*")) | ||
| 355 | "-print") | 353 | "-print") |
| 356 | (file-cache-add-from-file-cache-buffer))) | 354 | (file-cache-add-from-file-cache-buffer))) |
| 357 | 355 | ||