Re: `eshell-under-cygwin-p' etc. inappropriate?

[Tak Ota <Takaaki.Ota@am.sony.com>]

07 Aug 2002 06:06:12 +0100: John Paul Wallington <jpw@shootybangbang.com> wrote:

> Maybe `eshell-under-cygwin-p' should be called something else?

I use the following function for my own use.

(defun cygwin-exists-p ()
  "Search cygwin1.dll in the exec-path and return the full path if it exists or nil otherwise."
  (catch 'exists
    (let ((path-list exec-path))
      (while path-list
	(let ((full-path (expand-file-name "cygwin1.dll" (car path-list))))
	  (if (file-exists-p full-path)
	      (throw 'exists full-path))
	  (setq path-list (cdr path-list)))))))

This has been often useful for me regardless of under emacs or
xemacs.  Since it is w32 platform specific w32-cygwin-exists-p maybe
more appropriate.

-Tak