|
22
|
1 ;; -*-Emacs-Lisp-*-
|
|
|
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
3 ;;
|
|
|
4 ;; File: efs-auto.el
|
|
|
5 ;; Release: $efs release: 1.15 $
|
|
118
|
6 ;; Version: #Revision: 1.8 $
|
|
22
|
7 ;; RCS:
|
|
|
8 ;; Description: Simple way of autoloading efs
|
|
|
9 ;; Author: Andy Norman, Dawn
|
|
|
10 ;; Created: Thu Sep 24 09:50:08 1992
|
|
|
11 ;; Language: Emacs-Lisp
|
|
|
12 ;;
|
|
|
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
14
|
|
|
15 ;;; This file is part of efs. See efs.el for copyright
|
|
|
16 ;;; (it's copylefted) and warrranty (there isn't one) information.
|
|
|
17
|
|
|
18 ;;; Provides a way of autoloading efs. To use this, just put
|
|
116
|
19 ;;; (require 'efs-auto) in your .emacs file.
|
|
22
|
20 ;;;
|
|
|
21 ;;; The Bad News:
|
|
|
22 ;;;
|
|
|
23 ;;; 1. Calls to load and require will not trigger efs to autoload.
|
|
|
24 ;;; If you are want to put remote directories in your load path,
|
|
|
25 ;;; you should require efs.
|
|
|
26 ;;; 2. Because efs does not overload expand-file-name until it is loaded,
|
|
|
27 ;;; "smart" expansion of file names on remote apollos running domain
|
|
|
28 ;;; will not work yet. This means that accessing a file on a remote
|
|
|
29 ;;; apollo may not correctly cause efs to autoload. This will depend
|
|
|
30 ;;; the details of your command sequence.
|
|
|
31
|
|
|
32 (provide 'efs-auto)
|
|
|
33 (require 'efs-ovwrt)
|
|
|
34 (require 'efs-fnh)
|
|
|
35
|
|
|
36 (defconst efs-auto-version
|
|
|
37 (concat (substring "$efs release: 1.15 $" 14 -2)
|
|
|
38 "/"
|
|
118
|
39 (substring "#Revision: 1.8 $" 11 -2)))
|
|
22
|
40
|
|
|
41 ;;; Interactive functions that should be accessible from here.
|
|
|
42
|
|
|
43 (autoload 'efs-report-bug "efs-report" "Submit a bug report for efs." t)
|
|
|
44 (autoload
|
|
|
45 'efs-set-passwd "efs-netrc"
|
|
|
46 "For a given HOST and USER, set or change the associated PASSWORD." t)
|
|
|
47 (autoload 'efs-nslookup-host "efs"
|
|
|
48 "Attempt to resolve a hostname using nslookup if possible." t)
|
|
118
|
49 (autoload 'efs-display-ftp-activity "efs"
|
|
|
50 "Displays the number of active background ftp sessions in the modeline.
|
|
|
51 Uses the variable `efs-mode-line-format' to determine how this will be
|
|
|
52 displayed." t)
|
|
|
53 (autoload 'efs-ftp-path "efs-cu"
|
|
|
54 "Parse PATH according to efs-path-regexp.
|
|
|
55 Returns a list (HOST USER PATH), or nil if PATH does not match the format.")
|
|
22
|
56
|
|
|
57 ;;; end of efs-auto.el
|
