337 |
Find is run in DIRECTORY." |
Find is run in DIRECTORY." |
338 |
(interactive "DAdd files under directory: ") |
(interactive "DAdd files under directory: ") |
339 |
(let ((dir (expand-file-name directory))) |
(let ((dir (expand-file-name directory))) |
340 |
(if (eq file-cache-find-command-posix-flag 'not-defined) |
(when (memq system-type '(windows-nt cygwin)) |
341 |
(setq file-cache-find-command-posix-flag |
(if (eq file-cache-find-command-posix-flag 'not-defined) |
342 |
(executable-command-find-posix-p file-cache-find-command))) |
(setq file-cache-find-command-posix-flag |
343 |
|
(executable-command-find-posix-p file-cache-find-command)))) |
344 |
(set-buffer (get-buffer-create file-cache-buffer)) |
(set-buffer (get-buffer-create file-cache-buffer)) |
345 |
(erase-buffer) |
(erase-buffer) |
346 |
(call-process file-cache-find-command nil |
(call-process file-cache-find-command nil |