Mercurial > hg > xemacs-beta
diff lisp/efs/efs.el @ 114:8619ce7e4c50 r20-1b9
Import from CVS: tag r20-1b9
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:21:54 +0200 |
parents | 4be1180a9e89 |
children | 9f59509498e1 |
line wrap: on
line diff
--- a/lisp/efs/efs.el Mon Aug 13 09:20:50 2007 +0200 +++ b/lisp/efs/efs.el Mon Aug 13 09:21:54 2007 +0200 @@ -3,7 +3,7 @@ ;; ;; File: efs.el ;; Release: $efs release: 1.15 $ -;; Version: $Revision: 1.3 $ +;; Version: $Revision: 1.4 $ ;; RCS: ;; Description: Transparent FTP support for the original GNU Emacs ;; from FSF and Lucid Emacs @@ -73,12 +73,8 @@ ;;; Documentation: ;;; -------------------------------------------------------------- ;;; -;;; Currently efs does not have a tex info file, and what you are -;;; reading represents the only efs documentation. Please report any -;;; errors or omissions in this documentation to the "bugs" address -;;; below. Eventually, a tex info file should be written. If you have -;;; any problems with efs, please read this section *before* -;;; submitting a bug report. +;;; If you have any problems with efs, please read this section +;;; *before* submitting a bug report. ;;; Installation: ;;; @@ -309,7 +305,7 @@ ;;; Gateways: ;;; -;;; Sometimes it is neccessary for the FTP process to be run on a different +;;; Sometimes it is necessary for the FTP process to be run on a different ;;; machine than the machine running GNU Emacs. This can happen when the ;;; local machine has restrictions on what hosts it can access. ;;; @@ -906,7 +902,7 @@ ;;; efs|Andy Norman and Sandy Rutherford ;;; |ange@hplb.hpl.hp.com and sandy@ibm550.sissa.it ;;; |transparent FTP Support for GNU Emacs -;;; |$Date: 1997/02/24 01:13:11 $|$efs release: 1.15 beta $| +;;; |$Date: 1997/03/22 06:01:58 $|$efs release: 1.15 beta $| ;;; Host and listing type notation: ;;; @@ -1053,7 +1049,7 @@ (defconst efs-version (concat (substring "$efs release: 1.15 $" 14 -2) "/" - (substring "$Revision: 1.3 $" 11 -2))) + (substring "$Revision: 1.4 $" 11 -2))) (defconst efs-time-zero 1970) ; we count time from midnight, Jan 1, 1970 GMT. @@ -4161,6 +4157,7 @@ ;;;; pretty much scrap metal.) ;;;; --------------------------------------------------------------------- +;;;###autoload (defun efs-nslookup-host (host) "Attempt to resolve the given HOSTNAME using nslookup if possible." (interactive "sHost: ") @@ -10730,6 +10727,7 @@ ;;;; File name handlers ;;;; ------------------------------------------------------------ +;;;###autoload (defun efs-file-handler-function (operation &rest args) "Function to call special file handlers for remote files." (let ((handler (get operation 'efs)))