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

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

Sun, 11 Aug 2002 16:49:49 +0300: "Eli Zaretskii" <eliz@is.elta.co.il> wrote:

> > From: Tak Ota <Takaaki.Ota@am.sony.com>
> > Date: Thu, 08 Aug 2002 10:23:16 -0700 (PDT)
> > 
> > 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)))))))
> 
> I think this might be dangerous: a user could have some Cygwin tools
> installed, but she could still be using a natively-co9mpiled Emacs.
> 
> In other words, the mere fact of cygwin.dll's existence does not
> necessarily mean that this Emacs is a Cygwin binary.

You are right.  For that purpose I think `system-type' should provide
appropriate distinction between the two.  `cygwin-exists-p' does
nothing more than what its name and doc string say.

-Tak