From xemacs-m  Tue Mar 25 02:58:51 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id CAA20309
	for <xemacs-beta@xemacs.org>; Tue, 25 Mar 1997 02:58:51 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id BAA16300;
	Tue, 25 Mar 1997 01:10:21 -0800
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: file-remote-p broken
References: <y9lvi6h75ym.fsf@modas.informatik.uni-tuebingen.de> <m2hgi0a75r.fsf@altair.xemacs.org> <y9lend4784q.fsf@modas.informatik.uni-tuebingen.de> <m2n2rsquu1.fsf@altair.xemacs.org> <y9l7miw73w3.fsf@modas.informatik.uni-tuebingen.de>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: sperber@informatik.uni-tuebingen.de's message of 25 Mar 1997 09:49:16 +0100
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 25 Mar 1997 01:10:18 -0800
Message-ID: <m2iv2g9w1x.fsf@altair.xemacs.org>
Lines: 37
X-Mailer: Gnus v5.4.37/XEmacs 20.1(beta10)

Michael Sperber writes:

sb> And I'm adding an autoload magic cookie to `efs-ftp-path'.

> Good.  Rather than me sending another patch which could screw things
> up.

O.K.  Please update your master copies.

sb> O.K. now?

> Nitpick alternative (again, note the arg name changed):

Oops, sorry.

> (defun file-remote-p (file-name)
>   "Test whether file resides on the local system."
>   (cond ((not allow-remote-paths) nil)
> 	((featurep 'ange-ftp) (ange-ftp-ftp-path file-name))
>         (t (efs-ftp-path file-name))))

;; 19.15
(defun file-remote-p (file-name)
  "Test whether file resides on the local system."
  (cond ((not allow-remote-paths) nil)
	((featurep 'ange-ftp) (ange-ftp-ftp-path file-name))
	(t (efs-ftp-path file-name))))
;;20.1
(defun file-remote-p (file-name)
  "Test whether file resides on the local system."
  (cond ((not allow-remote-paths) nil)
	((featurep 'ange-ftp) (ange-ftp-ftp-path file-name))
	(t (efs-ftp-path file-name))))

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

