Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(file-cache-find-posix-p): Deleted.

Browse source 
(file-cache-add-directory-using-find): Use `executable-command-find-posix-p'.
This commit is contained in:
Richard M. Stallman 2004-01-29 17:55:39 +00:00
parent 87f54c051d
commit 40f8257f08
1 changed files with 2 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/filecache.el
View file

@ -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