Commit | Line | Data |
---|---|---|
8c8b8430 SM |
1 | ;;; url-ftp.el --- FTP wrapper |
2 | ;; Author: $Author: wmperry $ | |
3 | ;; Created: $Date: 1999/11/30 12:47:21 $ | |
4 | ;; Version: $Revision: 1.1 $ | |
5 | ;; Keywords: comm, data, processes | |
6 | ||
7 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
8 | ;;; Copyright (c) 1993 - 1996 by William M. Perry <wmperry@cs.indiana.edu> | |
9 | ;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. | |
10 | ;;; | |
11 | ;;; This file is part of GNU Emacs. | |
12 | ;;; | |
13 | ;;; GNU Emacs is free software; you can redistribute it and/or modify | |
14 | ;;; it under the terms of the GNU General Public License as published by | |
15 | ;;; the Free Software Foundation; either version 2, or (at your option) | |
16 | ;;; any later version. | |
17 | ;;; | |
18 | ;;; GNU Emacs is distributed in the hope that it will be useful, | |
19 | ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 | ;;; GNU General Public License for more details. | |
22 | ;;; | |
23 | ;;; You should have received a copy of the GNU General Public License | |
24 | ;;; along with GNU Emacs; see the file COPYING. If not, write to the | |
25 | ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
26 | ;;; Boston, MA 02111-1307, USA. | |
27 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
28 | ||
29 | ;; We knew not what we did when we overloaded 'file' to mean 'file' | |
30 | ;; and 'ftp' back in the dark ages of the web. | |
31 | ;; | |
32 | ;; This stub file is just here to please the auto-scheme-loading code | |
33 | ;; in url-methods.el and just maps everything onto the code in | |
34 | ;; url-file. | |
35 | ||
36 | (require 'url-parse) | |
37 | (require 'url-file) | |
38 | ||
39 | (defconst url-ftp-default-port 21 "Default FTP port.") | |
40 | (defconst url-ftp-asynchronous-p t "FTP transfers are asynchronous.") | |
41 | (defalias 'url-ftp-expand-file-name 'url-default-expander) | |
42 | (defalias 'url-ftp 'url-file) | |
43 | ||
44 | (provide 'url-ftp) |