diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-01-29 17:55:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-01-29 17:55:39 +0000 |
| commit | 40f8257f08b9825b9f86bbfb1f313cdeee3eab49 (patch) | |
| tree | c1c9f7f2e70d383bb9952c1509a58c5d4bb5b7ea /lisp/filecache.el | |
| parent | 87f54c051d8ecd413fa7423fd44b00d6b1dd355f (diff) | |
| download | emacs-40f8257f08b9825b9f86bbfb1f313cdeee3eab49.tar.gz | |
(file-cache-find-posix-p): Deleted.
(file-cache-add-directory-using-find): Use `executable-command-find-posix-p'.
Diffstat (limited to 'lisp/filecache.el')
| -rw-r--r-- | lisp/filecache.el | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/lisp/filecache.el b/lisp/filecache.el index d983472041b..ea8bdaaf232 100644 --- a/lisp/filecache.el +++ b/lisp/filecache.el @@ -332,27 +332,14 @@ in each directory, not to the directory list itself." file-cache-alist))) ))) -(defun file-cache-find-posix-p () - "Check if `file-cache-find-command' handles wildcards POSIX style." - (or (not (memq system-type '(ms-dos windows-nt))) ;; Include all POSIX systems. - (with-temp-buffer ;; Cygwin? - (call-process file-cache-find-command - nil - (current-buffer) - nil - "--version") - (goto-char (point-min)) - ;; Cygwin - (if (re-search-forward "GNU" nil t) - (buffer-string))))) - (defun file-cache-add-directory-using-find (directory) "Use the `find' command to add files to the file cache. Find is run in DIRECTORY." (interactive "DAdd files under directory: ") (let ((dir (expand-file-name directory))) (if (eq file-cache-find-command-posix-flag 'not-defined) - (setq file-cache-find-command-posix-flag (file-cache-find-posix-p))) + (setq file-cache-find-command-posix-flag + (executable-command-find-posix-p file-cache-find-command))) (set-buffer (get-buffer-create file-cache-buffer)) (erase-buffer) (call-process file-cache-find-command nil |