;ELC   
;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan  5 18:41:49 2003
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/url-cvs-20030105-src/lisp/url-ftp.el
;;; in Emacs version 21.1.1
;;; with bytecomp version 2.85
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`url-ftp.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require url-parse url-file] 2)
#@19 Default FTP port.
(defconst url-ftp-default-port 21 (#$ . 724))
#@33 FTP transfers are asynchronous.
(defconst url-ftp-asynchronous-p t (#$ . 794))
(byte-code "\300\301\302\"\210\300\303\304\"\210\305\303!\207" [defalias url-ftp-expand-file-name url-default-expander url-ftp url-file provide] 3)