|
From: | Tak Ota |
Subject: | Re: `eshell-under-cygwin-p' etc. inappropriate? |
Date: | Thu, 08 Aug 2002 10:23:16 -0700 (PDT) |
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
[Prev in Thread] | Current Thread | [Next in Thread] |