Mercurial > hg > xemacs-beta

comparison lisp/efs/efs.el @ 40:7e54bd776075 r19-15b103

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b103
author cvs
date Mon, 13 Aug 2007 08:54:25 +0200
parents 4103f0995bd7
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
39:06f275776fba 40:7e54bd776075
71 71
72 ;;; -------------------------------------------------------------- 72 ;;; --------------------------------------------------------------
73 ;;; Documentation: 73 ;;; Documentation:
74 ;;; -------------------------------------------------------------- 74 ;;; --------------------------------------------------------------
75 ;;; 75 ;;;
76 ;;; Currently efs does not have a tex info file, and what you are 76 ;;; If you have any problems with efs, please read this section
77 ;;; reading represents the only efs documentation. Please report any 77 ;;; *before* submitting a bug report.
78 ;;; errors or omissions in this documentation to the "bugs" address
79 ;;; below. Eventually, a tex info file should be written. If you have
80 ;;; any problems with efs, please read this section *before*
81 ;;; submitting a bug report.
82 78
83 ;;; Installation: 79 ;;; Installation:
84 ;;; 80 ;;;
85 ;;; For byte compiling the efs package, a Makefile is provided. 81 ;;; For byte compiling the efs package, a Makefile is provided.
86 ;;; You should follow the instructions at the top of the Makefile. 82 ;;; You should follow the instructions at the top of the Makefile.
307 ;;; (define-key minibuffer-local-completion-map "\C-r" 'efs-re-read-dir) 303 ;;; (define-key minibuffer-local-completion-map "\C-r" 'efs-re-read-dir)
308 ;;; (define-key minibuffer-local-must-match-map "\C-r" 'efs-re-read-dir) 304 ;;; (define-key minibuffer-local-must-match-map "\C-r" 'efs-re-read-dir)
309 305
310 ;;; Gateways: 306 ;;; Gateways:
311 ;;; 307 ;;;
312 ;;; Sometimes it is neccessary for the FTP process to be run on a different 308 ;;; Sometimes it is necessary for the FTP process to be run on a different
313 ;;; machine than the machine running GNU Emacs. This can happen when the 309 ;;; machine than the machine running GNU Emacs. This can happen when the
314 ;;; local machine has restrictions on what hosts it can access. 310 ;;; local machine has restrictions on what hosts it can access.
315 ;;; 311 ;;;
316 ;;; efs has support for running the ftp process on a different (gateway) 312 ;;; efs has support for running the ftp process on a different (gateway)
317 ;;; machine. The way it works is as follows: 313 ;;; machine. The way it works is as follows:
4159 ;;;; The login sequence. (The follows RFC959 rather tightly. If a server 4155 ;;;; The login sequence. (The follows RFC959 rather tightly. If a server
4160 ;;;; can't even get the login codes right, it is 4156 ;;;; can't even get the login codes right, it is
4161 ;;;; pretty much scrap metal.) 4157 ;;;; pretty much scrap metal.)
4162 ;;;; --------------------------------------------------------------------- 4158 ;;;; ---------------------------------------------------------------------
4163 4159
4160 ;;;###autoload
4164 (defun efs-nslookup-host (host) 4161 (defun efs-nslookup-host (host)
4165 "Attempt to resolve the given HOSTNAME using nslookup if possible." 4162 "Attempt to resolve the given HOSTNAME using nslookup if possible."
4166 (interactive "sHost: ") 4163 (interactive "sHost: ")
4167 (if efs-nslookup-program 4164 (if efs-nslookup-program
4168 (let* ((default-directory exec-directory) 4165 (let* ((default-directory exec-directory)
10728 10725
10729 ;;;; ------------------------------------------------------------ 10726 ;;;; ------------------------------------------------------------
10730 ;;;; File name handlers 10727 ;;;; File name handlers
10731 ;;;; ------------------------------------------------------------ 10728 ;;;; ------------------------------------------------------------
10732 10729
10730 ;;;###autoload
10733 (defun efs-file-handler-function (operation &rest args) 10731 (defun efs-file-handler-function (operation &rest args)
10734 "Function to call special file handlers for remote files." 10732 "Function to call special file handlers for remote files."
10735 (let ((handler (get operation 'efs))) 10733 (let ((handler (get operation 'efs)))
10736 (if handler 10734 (if handler
10737 (apply handler args) 10735 (apply handler args)