Mercurial > hg > xemacs-beta
comparison lisp/efs/fixup.el @ 22:8fc7fe29b841 r19-15b94
Import from CVS: tag r19-15b94
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:50:29 +0200 |
parents | |
children | 8b8b7f3559a2 |
comparison
equal
deleted
inserted
replaced
21:b88636d63495 | 22:8fc7fe29b841 |
---|---|
1 ;; -*-Emacs-Lisp-*- | |
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
3 ;; | |
4 ;; File: fixup.el | |
5 ;; Release: $efs release: 1.15 $ | |
6 ;; Version: $Revision: 1.1 $ | |
7 ;; RCS: | |
8 ;; Description: Fix up the load path for batch byte compilation of efs. | |
9 ;; Author: Andy Norman, Dawn | |
10 ;; Created: Sat Jan 30 00:21:33 1993 | |
11 ;; Modified: Fri Sep 16 20:01:50 1994 by sandy on ibm550 | |
12 ;; Language: Emacs-Lisp | |
13 ;; | |
14 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
15 | |
16 (setq load-path | |
17 (append (list (substitute-in-file-name "$CWD") | |
18 (substitute-in-file-name "$BDIR") | |
19 (substitute-in-file-name "$VMDIR") | |
20 ) | |
21 load-path)) | |
22 | |
23 (setq byte-compile-warnings t) | |
24 | |
25 ;; If the V18 btye-compiler is being used, this won't be around, so don't | |
26 ;; complain if we can't find it. | |
27 (load "bytecomp-runtime" t t) | |
28 | |
29 (load "bytecomp" nil t) | |
30 | |
31 ;; It seems efs causes the standard byte compiler some grief here. | |
32 (setq max-lisp-eval-depth (* 2 max-lisp-eval-depth)) | |
33 | |
34 ;; If the user has the standard dired loaded, having dired | |
35 ;; featurep will cause efs-dired.el to attempt to do overloads. | |
36 (delq 'dired features) | |
37 | |
38 ;;; end of fixup.el |