# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1196310725 0
# Node ID 7193e8ecbb2e36e61e1bdcba84c7d969cafe0f10
# Parent  3565c4272a4185bdcf2d0ffd38775562b525bfa6
(url-file-build-filename, url-file): Wrap uses of
efs in (featurep 'xemacs) test.

diff -r 3565c4272a41 -r 7193e8ecbb2e lisp/url/url-file.el
--- a/lisp/url/url-file.el	Thu Nov 29 04:30:58 2007 +0000
+++ b/lisp/url/url-file.el	Thu Nov 29 04:32:05 2007 +0000
@@ -119,8 +119,9 @@
 	 (cond
 	  ((featurep 'ange-ftp)
 	   (ange-ftp-set-passwd host user pass))
-	  ((or (featurep 'efs) (featurep 'efs-auto))
-	   (efs-set-passwd host user pass))
+	  ((when (featurep 'xemacs)
+             (or (featurep 'efs) (featurep 'efs-auto)
+                 (efs-set-passwd host user pass))))
 	  (t
 	   nil)))
 
@@ -214,14 +215,15 @@
 						   new (current-buffer)
 						   callback cbargs)
 					     t)
-	      (autoload 'efs-copy-file-internal "efs")
-	      (efs-copy-file-internal filename (efs-ftp-path filename)
-				      new (efs-ftp-path new)
-				      t nil 0
-				      (list 'url-file-asynch-callback
-					    new (current-buffer)
-					    callback cbargs)
-				      0 nil))))))
+              (when (featurep 'xemacs)
+                (autoload 'efs-copy-file-internal "efs")
+                (efs-copy-file-internal filename (efs-ftp-path filename)
+                                        new (efs-ftp-path new)
+                                        t nil 0
+                                        (list 'url-file-asynch-callback
+                                              new (current-buffer)
+                                              callback cbargs)
+                                        0 nil)))))))
     buffer))
 
 (defmacro url-file-create-wrapper (method args)