From 132d5910a04491bac9326bc89ed7401855a84777 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 29 Nov 2007 04:32:05 +0000 Subject: [PATCH] (url-file-build-filename, url-file): Wrap uses of efs in (featurep 'xemacs) test. --- lisp/url/url-file.el | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index 9af3bbb42b4..cedf98a3ad3 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -119,8 +119,9 @@ to them." (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 @@ to them." 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) -- 2.39.2