Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-auto.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-auto.el 4 ;; File: efs-auto.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.2 $ 6 ;; Version: #Revision: 1.7 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: Simple way of autoloading efs 8 ;; Description: Simple way of autoloading efs
9 ;; Author: Andy Norman, Dawn 9 ;; Author: Andy Norman, Dawn
10 ;; Created: Thu Sep 24 09:50:08 1992 10 ;; Created: Thu Sep 24 09:50:08 1992
11 ;; Modified: Sun Nov 27 11:45:28 1994 by sandy on gandalf
11 ;; Language: Emacs-Lisp 12 ;; Language: Emacs-Lisp
12 ;; 13 ;;
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 14 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14 15
15 ;;; This file is part of efs. See efs.el for copyright 16 ;;; This file is part of efs. See efs.el for copyright
16 ;;; (it's copylefted) and warrranty (there isn't one) information. 17 ;;; (it's copylefted) and warrranty (there isn't one) information.
17 18
18 ;;; Provides a way of autoloading efs. To use this, just put 19 ;;; Provides a way of autoloading efs. To use this, just put
19 ;;; (require 'efs-auto in your .emacs file. 20 ;;; (require 'efs-auto) in your .emacs file.
20 ;;; 21 ;;;
21 ;;; The Bad News: 22 ;;; The Bad News:
22 ;;; 23 ;;;
23 ;;; 1. Calls to load and require will not trigger efs to autoload. 24 ;;; 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 ;;; If you are want to put remote directories in your load path,
34 (require 'efs-fnh) 35 (require 'efs-fnh)
35 36
36 (defconst efs-auto-version 37 (defconst efs-auto-version
37 (concat (substring "$efs release: 1.15 $" 14 -2) 38 (concat (substring "$efs release: 1.15 $" 14 -2)
38 "/" 39 "/"
39 (substring "$Revision: 1.2 $" 11 -2))) 40 (substring "#Revision: 1.7 $" 11 -2)))
40 41
41 ;;; Interactive functions that should be accessible from here. 42 ;;; Interactive functions that should be accessible from here.
42 43
43 (autoload 'efs-report-bug "efs-report" "Submit a bug report for efs." t) 44 (autoload 'efs-report-bug "efs-report" "Submit a bug report for efs." t)
44 (autoload 45 (autoload