diff options
Diffstat (limited to 'lisp/filecache.el')
| -rw-r--r-- | lisp/filecache.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/filecache.el b/lisp/filecache.el index bd0b0f77781..90287ba5eef 100644 --- a/lisp/filecache.el +++ b/lisp/filecache.el | |||
| @@ -337,21 +337,20 @@ in each directory, not to the directory list itself." | |||
| 337 | Find is run in DIRECTORY." | 337 | Find is run in DIRECTORY." |
| 338 | (interactive "DAdd files under directory: ") | 338 | (interactive "DAdd files under directory: ") |
| 339 | (let ((dir (expand-file-name directory))) | 339 | (let ((dir (expand-file-name directory))) |
| 340 | (if (eq file-cache-find-command-posix-flag 'not-defined) | 340 | (when (memq system-type '(windows-nt cygwin)) |
| 341 | (setq file-cache-find-command-posix-flag | 341 | (if (eq file-cache-find-command-posix-flag 'not-defined) |
| 342 | (executable-command-find-posix-p file-cache-find-command))) | 342 | (setq file-cache-find-command-posix-flag |
| 343 | (executable-command-find-posix-p file-cache-find-command)))) | ||
| 343 | (set-buffer (get-buffer-create file-cache-buffer)) | 344 | (set-buffer (get-buffer-create file-cache-buffer)) |
| 344 | (erase-buffer) | 345 | (erase-buffer) |
| 345 | (call-process file-cache-find-command nil | 346 | (call-process file-cache-find-command nil |
| 346 | (get-buffer file-cache-buffer) nil | 347 | (get-buffer file-cache-buffer) nil |
| 347 | dir "-name" | 348 | dir "-name" |
| 348 | (cond | 349 | (if (memq system-type '(windows-nt cygwin)) |
| 349 | (file-cache-find-command-posix-flag | 350 | (if file-cache-find-command-posix-flag |
| 350 | "\\*") | 351 | "\\*" |
| 351 | ((eq system-type 'windows-nt) | 352 | "'*'") |
| 352 | "'*'") | 353 | "*") |
| 353 | (t | ||
| 354 | "*")) | ||
| 355 | "-print") | 354 | "-print") |
| 356 | (file-cache-add-from-file-cache-buffer))) | 355 | (file-cache-add-from-file-cache-buffer))) |
| 357 | 356 | ||