|
22
|
1 ;; -*-Emacs-Lisp-*-
|
|
|
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
3 ;;
|
|
|
4 ;; File: efs-auto.el
|
|
|
5 ;; Release: $efs release: 1.15 $
|
|
42
|
6 ;; Version: #Revision: 1.7 $
|
|
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 ;; Modified: Sun Nov 27 11:45:28 1994 by sandy on gandalf
|
|
|
12 ;; Language: Emacs-Lisp
|
|
|
13 ;;
|
|
|
14 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
15
|
|
|
16 ;;; This file is part of efs. See efs.el for copyright
|
|
|
17 ;;; (it's copylefted) and warrranty (there isn't one) information.
|
|
|
18
|
|
|
19 ;;; Provides a way of autoloading efs. To use this, just put
|
|
40
|
20 ;;; (require 'efs-auto) in your .emacs file.
|
|
22
|
21 ;;;
|
|
|
22 ;;; The Bad News:
|
|
|
23 ;;;
|
|
|
24 ;;; 1. Calls to load and require will not trigger efs to autoload.
|
|
|
25 ;;; If you are want to put remote directories in your load path,
|
|
|
26 ;;; you should require efs.
|
|
|
27 ;;; 2. Because efs does not overload expand-file-name until it is loaded,
|
|
|
28 ;;; "smart" expansion of file names on remote apollos running domain
|
|
|
29 ;;; will not work yet. This means that accessing a file on a remote
|
|
|
30 ;;; apollo may not correctly cause efs to autoload. This will depend
|
|
|
31 ;;; the details of your command sequence.
|
|
|
32
|
|
|
33 (provide 'efs-auto)
|
|
|
34 (require 'efs-ovwrt)
|
|
|
35 (require 'efs-fnh)
|
|
|
36
|
|
|
37 (defconst efs-auto-version
|
|
|
38 (concat (substring "$efs release: 1.15 $" 14 -2)
|
|
|
39 "/"
|
|
42
|
40 (substring "#Revision: 1.7 $" 11 -2)))
|
|
22
|
41
|
|
|
42 ;;; Interactive functions that should be accessible from here.
|
|
|
43
|
|
|
44 (autoload 'efs-report-bug "efs-report" "Submit a bug report for efs." t)
|
|
|
45 (autoload
|
|
|
46 'efs-set-passwd "efs-netrc"
|
|
|
47 "For a given HOST and USER, set or change the associated PASSWORD." t)
|
|
|
48 (autoload 'efs-nslookup-host "efs"
|
|
|
49 "Attempt to resolve a hostname using nslookup if possible." t)
|
|
|
50
|
|
|
51 ;;; end of efs-auto.el
|
