From xemacs-m  Tue Mar 25 02:49:19 1997
Received: from macon.informatik.uni-tuebingen.de (macon2.Informatik.Uni-Tuebingen.De [134.2.13.2])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id CAA17947
	for <xemacs-beta@xemacs.org>; Tue, 25 Mar 1997 02:49:18 -0600 (CST)
Received: from modas.informatik.uni-tuebingen.de (modas.Informatik.Uni-Tuebingen.De [134.2.12.3]) by macon.informatik.uni-tuebingen.de (8.8.4/8.8.3/AIX-4.1/WSI-1.0) with SMTP id JAA29674 for <xemacs-beta@xemacs.org>; Tue, 25 Mar 1997 09:49:18 +0100
Received: by modas.informatik.uni-tuebingen.de (AIX 4.1/UCB 5.64/4.03)
          id AA18394; Tue, 25 Mar 1997 09:49:17 +0100
Sender: sperber@informatik.uni-tuebingen.de
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>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=ISO-8859-1
From: sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])
Date: 25 Mar 1997 09:49:16 +0100
In-Reply-To: Steven L Baur's message of 24 Mar 1997 23:44:38 -0800
Message-Id: <y9l7miw73w3.fsf@modas.informatik.uni-tuebingen.de>
Lines: 34
X-Mailer: Gnus v5.4.33/XEmacs 20.1(beta9)
Content-Transfer-Encoding: 8bit
X-MIME-Autoconverted: from quoted-printable to 8bit by xemacs.org id CAA17948

>>>>> "sb" == Steven L Baur <steve@miranova.com> writes:

sb> Michael Sperber writes:
>> Actually, it should be 'efs-cu.  Really actually, efs-ftp-path should
>> autoload.  My workspace (among 1 or 2 other lines of autoload
>> additions) has this already.

sb> O.K.  I have this:
sb> (defun file-remote-p (file)
sb>   "Test whether file resides on the local system."
sb>   (cond ((featurep 'ange-ftp) (ange-ftp-ftp-path file-name))
sb>         (allow-remote-paths (efs-ftp-path file-name))
sb> 	(t nil)))

This has the arg name bug again that I fixed with the patch.

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.

sb> O.K. now?

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

(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))))

-- 
Cheers =8-} Chipsy
Friede, Vlkerverstndigung und berhaupt blabla

