From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Tak Ota Newsgroups: gmane.emacs.devel Subject: Re: `eshell-under-cygwin-p' etc. inappropriate? Date: Thu, 08 Aug 2002 10:23:16 -0700 (PDT) Organization: Sony Electronics Inc. Sender: emacs-devel-admin@gnu.org Message-ID: <20020808.102316.91281422.Takaaki.Ota@am.sony.com> References: <87bs8fn34y.fsf@alice.dynodns.net> <87bs8f8dh7.fsf@bundalo.shootybangbang.com> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1028827406 8489 127.0.0.1 (8 Aug 2002 17:23:26 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Thu, 8 Aug 2002 17:23:26 +0000 (UTC) Cc: emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 17cr0P-0002Cn-00 for ; Thu, 08 Aug 2002 19:23:25 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17crMa-0003hY-00 for ; Thu, 08 Aug 2002 19:46:20 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.35 #1 (Debian)) id 17cr13-0004R7-00; Thu, 08 Aug 2002 13:24:05 -0400 Original-Received: from mail6.fw-bc.sony.com ([160.33.98.73]) by fencepost.gnu.org with esmtp (Exim 3.35 #1 (Debian)) id 17cr0K-0004Kf-00 for ; Thu, 08 Aug 2002 13:23:20 -0400 Original-Received: from mail1.bc.in.sel.sony.com (mail1.bc.in.sel.sony.com [43.144.65.11]) by mail6.fw-bc.sony.com (8.8.8/8.8.8) with ESMTP id RAA15517; Thu, 8 Aug 2002 17:23:19 GMT Original-Received: by mail1.bc.in.sel.sony.com id RAA07490; Thu, 8 Aug 2002 17:23:17 GMT Original-To: jpw@shootybangbang.com In-Reply-To: <87bs8f8dh7.fsf@bundalo.shootybangbang.com> X-Telephone: +1-858-942-3239 X-Fax------: +1-858-942-9142 X-SnailMail: 16450 West Bernardo Drive MZ7205, San Diego, CA 92127-1804 X-Mailer: Mew-3.0.60 on Emacs-21.3.50.1 (i386-msvc-nt5.0.2195) of 2002-08-08 Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:6368 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:6368 07 Aug 2002 06:06:12 +0100: John Paul Wallington 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