From xemacs-m  Mon Mar 24 07:52:24 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 HAA11235
	for <xemacs-beta@xemacs.org>; Mon, 24 Mar 1997 07:52:23 -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 OAA16244 for <xemacs-beta@xemacs.org>; Mon, 24 Mar 1997 14:52:18 +0100
Received: by modas.informatik.uni-tuebingen.de (AIX 4.1/UCB 5.64/4.03)
          id AA15772; Mon, 24 Mar 1997 14:52:17 +0100
Sender: sperber@informatik.uni-tuebingen.de
To: xemacs-beta@xemacs.org
Subject: file-remote-p broken
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
From: sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])
Date: 24 Mar 1997 14:52:17 +0100
Message-Id: <y9lvi6h75ym.fsf@modas.informatik.uni-tuebingen.de>
Lines: 36
X-Mailer: Gnus v5.4.33/XEmacs 20.1(beta9)


At least in 20.1-b9.  (Has noone used this?)  Its interface is also a
bit too generous.  I hope this applies to 19.15, also.  My next 19.15
beta arrives in three hours ...

Cheers =8-} Mike

*** lisp/prim/files.el~	Sun Mar 16 04:05:35 1997
--- lisp/prim/files.el	Mon Mar 24 14:50:57 1997
***************
*** 2940,2951 ****
        (error "Apparently circular symlink path"))))
  
  ;; 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))))
  
  ;;; files.el ends here
--- 2940,2951 ----
        (error "Apparently circular symlink path"))))
  
  ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU>
! (defun file-remote-p (file-name)
!   "Test whether FILE-NAME resides on the local system.
  The special value 'unknown is returned if no remote file access package
  has been loaded."
!   (cond ((featurep 'ange-ftp) (and (ange-ftp-ftp-path file-name) t))
          (t (require 'efs)
! 	   (and (efs-ftp-path file-name) t))))
  
  ;;; files.el ends here

