code.delx.au - gnu-emacs/blob - lisp/url/url-ftp.el

   1 ;;; url-ftp.el --- FTP wrapper
   2
   3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2004,
   4 ;;   2005, 2006, 2007 Free Software Foundation, Inc.
   5
   6 ;; Keywords: comm, data, processes
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 3, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  23 ;; Boston, MA 02110-1301, USA.
  24
  25 ;;; Commentary:
  26
  27 ;; We knew not what we did when we overloaded 'file' to mean 'file'
  28 ;; and 'ftp' back in the dark ages of the web.
  29 ;;
  30 ;; This stub file is just here to please the auto-scheme-loading code
  31 ;; in url-methods.el and just maps everything onto the code in
  32 ;; url-file.
  33
  34 ;;; Code:
  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)
  45
  46 ;;; arch-tag: 9c3e70c4-350f-4d4a-bb51-a1e9b459e7dc
  47 ;;; url-ftp.el ends here