Mercurial > emacs
comparison lisp/ange-ftp.el @ 2229:bd3c525fa6fc
Added standard library headers.
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Wed, 17 Mar 1993 15:20:58 +0000 |
parents | 174817d23858 |
children | 1b7eb2d96ddd |
comparison
equal
deleted
inserted
replaced
2228:d40154ca6354 | 2229:bd3c525fa6fc |
---|---|
1 ;; -*-Emacs-Lisp-*- | 1 ;;; ange-ftp.el --- transparent FTP support for GNU Emacs |
2 | |
3 ;;; Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc. | |
2 ;;; ??? Waiting for papers from several people. | 4 ;;; ??? Waiting for papers from several people. |
3 ;; Description: transparent FTP support for GNU Emacs | |
4 | |
5 ;;; Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc. | |
6 ;;; | 5 ;;; |
7 ;;; Author: Andy Norman (ange@hplb.hpl.hp.com) | 6 ;;; Author: Andy Norman (ange@hplb.hpl.hp.com) |
7 ;;; Keywords: tools | |
8 ;;; | 8 ;;; |
9 ;;; This program is free software; you can redistribute it and/or modify | 9 ;;; This program is free software; you can redistribute it and/or modify |
10 ;;; it under the terms of the GNU General Public License as published by | 10 ;;; it under the terms of the GNU General Public License as published by |
11 ;;; the Free Software Foundation; either version 1, or (at your option) | 11 ;;; the Free Software Foundation; either version 1, or (at your option) |
12 ;;; any later version. | 12 ;;; any later version. |
19 ;;; A copy of the GNU General Public License can be obtained from this | 19 ;;; A copy of the GNU General Public License can be obtained from this |
20 ;;; program's author (send electronic mail to ange@hplb.hpl.hp.com) or from | 20 ;;; program's author (send electronic mail to ange@hplb.hpl.hp.com) or from |
21 ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA | 21 ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA |
22 ;;; 02139, USA. | 22 ;;; 02139, USA. |
23 | 23 |
24 ;;; Description: | 24 ;;; Commentary: |
25 ;;; | 25 ;;; |
26 ;;; This package attempts to make accessing files and directories using FTP | 26 ;;; This package attempts to make accessing files and directories using FTP |
27 ;;; from within GNU Emacs as simple and transparent as possible. A subset of | 27 ;;; from within GNU Emacs as simple and transparent as possible. A subset of |
28 ;;; the common file-handling routines are extended to interact with FTP. | 28 ;;; the common file-handling routines are extended to interact with FTP. |
29 | 29 |
608 ;;; Trost, Dave Brennan, Dan Jacobson, Andy Scott, Steve Anderson, Sanjay | 608 ;;; Trost, Dave Brennan, Dan Jacobson, Andy Scott, Steve Anderson, Sanjay |
609 ;;; Mathur, the folks on the ange-ftp-lovers mailing list and many others | 609 ;;; Mathur, the folks on the ange-ftp-lovers mailing list and many others |
610 ;;; whose names I've forgotten who have helped to debug and fix problems with | 610 ;;; whose names I've forgotten who have helped to debug and fix problems with |
611 ;;; ange-ftp.el. | 611 ;;; ange-ftp.el. |
612 | 612 |
613 | |
614 ;;; Code: | |
613 (require 'comint) | 615 (require 'comint) |
614 | 616 |
615 ;;;; ------------------------------------------------------------ | 617 ;;;; ------------------------------------------------------------ |
616 ;;;; User customization variables. | 618 ;;;; User customization variables. |
617 ;;;; ------------------------------------------------------------ | 619 ;;;; ------------------------------------------------------------ |
855 | 857 |
856 ;;;; ------------------------------------------------------------ | 858 ;;;; ------------------------------------------------------------ |
857 ;;;; Internal variables. | 859 ;;;; Internal variables. |
858 ;;;; ------------------------------------------------------------ | 860 ;;;; ------------------------------------------------------------ |
859 | 861 |
860 (defconst ange-ftp-version "$Revision: 1.12 $") | 862 (defconst ange-ftp-version "$Revision: 1.13 $") |
861 | 863 |
862 (defvar ange-ftp-data-buffer-name " *ftp data*" | 864 (defvar ange-ftp-data-buffer-name " *ftp data*" |
863 "Buffer name to hold directory listing data received from ftp process.") | 865 "Buffer name to hold directory listing data received from ftp process.") |
864 | 866 |
865 (defvar ange-ftp-netrc-modtime nil | 867 (defvar ange-ftp-netrc-modtime nil |
5308 ;;;; ------------------------------------------------------------ | 5310 ;;;; ------------------------------------------------------------ |
5309 ;;;; Finally provide package. | 5311 ;;;; Finally provide package. |
5310 ;;;; ------------------------------------------------------------ | 5312 ;;;; ------------------------------------------------------------ |
5311 | 5313 |
5312 (provide 'ange-ftp) | 5314 (provide 'ange-ftp) |
5315 | |
5316 ;;; ange-ftp.el ends here |