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

[Tak Ota]

07 Aug 2002 06:06:12 +0100: John Paul Wallington <address@hidden> 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