Mercurial > hg > xemacs-beta
diff 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 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/efs/efs-auto.el Mon Aug 13 08:50:29 2007 +0200 @@ -0,0 +1,51 @@ +;; -*-Emacs-Lisp-*- +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;; File: efs-auto.el +;; Release: $efs release: 1.15 $ +;; Version: $Revision: 1.1 $ +;; RCS: +;; Description: Simple way of autoloading efs +;; Author: Andy Norman, Dawn +;; Created: Thu Sep 24 09:50:08 1992 +;; Modified: Sun Nov 27 11:45:28 1994 by sandy on gandalf +;; Language: Emacs-Lisp +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;;; This file is part of efs. See efs.el for copyright +;;; (it's copylefted) and warrranty (there isn't one) information. + +;;; Provides a way of autoloading efs. To use this, just put +;;; (require 'efs-auto in your .emacs file. +;;; +;;; The Bad News: +;;; +;;; 1. Calls to load and require will not trigger efs to autoload. +;;; If you are want to put remote directories in your load path, +;;; you should require efs. +;;; 2. Because efs does not overload expand-file-name until it is loaded, +;;; "smart" expansion of file names on remote apollos running domain +;;; will not work yet. This means that accessing a file on a remote +;;; apollo may not correctly cause efs to autoload. This will depend +;;; the details of your command sequence. + +(provide 'efs-auto) +(require 'efs-ovwrt) +(require 'efs-fnh) + +(defconst efs-auto-version + (concat (substring "$efs release: 1.15 $" 14 -2) + "/" + (substring "$Revision: 1.1 $" 11 -2))) + +;;; Interactive functions that should be accessible from here. + +(autoload 'efs-report-bug "efs-report" "Submit a bug report for efs." t) +(autoload + 'efs-set-passwd "efs-netrc" + "For a given HOST and USER, set or change the associated PASSWORD." t) +(autoload 'efs-nslookup-host "efs" + "Attempt to resolve a hostname using nslookup if possible." t) + +;;; end of efs-auto.el