From xemacs-m  Tue Mar 25 03:04:02 1997
Received: from mgate.uni-hannover.de (mgate.uni-hannover.de [130.75.2.3])
	by xemacs.org (8.8.5/8.8.5) with SMTP id DAA20379
	for <xemacs-beta@xemacs.org>; Tue, 25 Mar 1997 03:04:01 -0600 (CST)
Received: from helios (actually helios.tnt.uni-hannover.de) by mgate 
          with SMTP (PP); Tue, 25 Mar 1997 10:04:07 +0100
Received: from daedalus.tnt.uni-hannover.de by helios (SMI-8.6/SMI-SVR4) 
          id KAA05182; Tue, 25 Mar 1997 10:03:17 +0100
Received: by daedalus.tnt.uni-hannover.de (SMI-8.6/SMI-SVR4) id KAA17208;
          Tue, 25 Mar 1997 10:03:14 +0100
Date: Tue, 25 Mar 1997 10:03:14 +0100
Message-Id: <199703250903.KAA17208@daedalus.tnt.uni-hannover.de>
From: Heiko Muenkel <muenkel@tnt.uni-hannover.de>
To: xemacs-beta@xemacs.org
Subject: Patch for files.el
X-Face: n}R'l6CHRf>pi&bj7[x0CW3:kmXm@1)7m+l*9[fp;-Ow4Xe~=5E;skf?2> 
        y]f{HzB|Q(\V9+y$PP~.4G[2n4W7{6Ilm[AMY9B:0kj.K_$-d%p4YIF*bX;=ADp6{ 
        HS@NEv9c.VII+9PgXHASx}K(jy^t=q%qzZ72q1e4E;O!$A$`&wgtLk"1%p.nC_G!] 
        4d1!+J4Q#YD_iXeEy`1x)d\r$1Qn\'23n|[8Y_xzuXJJ7W(EGqnzB]`]aq??;+z=) 
        DW~\'Vq&F'g%QU[Mv2:}nS>SdZFTEC2GsgB=Q,:~H<R5S[:ZN%B:s0;|v1x"Jb
Mime-Version: 1.0 (generated by tm-edit 7.90)
Content-Type: text/plain; charset=US-ASCII

The function file-remote-p is broken in 19.15 b 104. Here's a fix for
it. (Michael Sperber told me, that it would be sufficient to load
efs-cu.el instead of the whole efs for efs-ftp-path. Therefore
wouldn't it be better to do this in file-remote-p, to speed up it's
first use?).


--- files.patch ---
*** files.el.orig	Tue Mar 25 00:43:59 1997
--- files.el	Tue Mar 25 00:42:59 1997
***************
*** 3006,3017 ****
  
  ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU>
  (defun file-remote-p (file)
!   "Test whether file resides on the local system.
  The special value 'unknown is returned if no remote file access package
  has been loaded."
!   (cond ((featurep 'ange-ftp) (ange-ftp-ftp-path file-name))
          (t (require 'efs)
! 	   (efs-ftp-path file-name))))
  
  ;; Written in C in FSF
  (defun insert-file-contents (filename &optional visit beg end replace)
--- 3006,3017 ----
  
  ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU>
  (defun file-remote-p (file)
!   "Test whether FILE resides on the local system.
  The special value 'unknown is returned if no remote file access package
  has been loaded."
!   (cond ((featurep 'ange-ftp) (ange-ftp-ftp-path file))
          (t (require 'efs)
! 	   (efs-ftp-path file))))
  
  ;; Written in C in FSF
  (defun insert-file-contents (filename &optional visit beg end replace)
--- files.patch ---

