Mercurial > emacs

changeset 53751:e7725f50a432

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(file-cache-find-posix-p): Deleted. (file-cache-add-directory-using-find): Use `executable-command-find-posix-p'.
author Richard M. Stallman <rms@gnu.org>
date Thu, 29 Jan 2004 17:55:39 +0000
parents 4deb14fde58c
children 592ddd618234
files lisp/filecache.el
diffstat 1 files changed, 2 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/filecache.el	Thu Jan 29 17:54:36 2004 +0000
+++ b/lisp/filecache.el	Thu Jan 29 17:55:39 2004 +0000
@@ -332,27 +332,14 @@
 		    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