Mercurial > hg > xemacs-beta
comparison lisp/efs/efs-auto.el @ 22:8fc7fe29b841 r19-15b94
Import from CVS: tag r19-15b94
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:50:29 +0200 |
| parents | |
| children | 7e54bd776075 8619ce7e4c50 |
comparison
equal
deleted
inserted
replaced
| 21:b88636d63495 | 22:8fc7fe29b841 |
|---|---|
| 1 ;; -*-Emacs-Lisp-*- | |
| 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 3 ;; | |
| 4 ;; File: efs-auto.el | |
| 5 ;; Release: $efs release: 1.15 $ | |
| 6 ;; Version: $Revision: 1.1 $ | |
| 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 | |
| 20 ;;; (require 'efs-auto in your .emacs file. | |
| 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 "/" | |
| 40 (substring "$Revision: 1.1 $" 11 -2))) | |
| 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 |