Mercurial > hg > xemacs-beta

diff lisp/make-docfile.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children a634e3b7acc8
line wrap: on
line diff
--- a/lisp/make-docfile.el	Mon Aug 13 11:33:40 2007 +0200
+++ b/lisp/make-docfile.el	Mon Aug 13 11:35:02 2007 +0200
@@ -75,7 +75,8 @@
   (setq command-line-args (cdr command-line-args)))
 
 ;; Then process the list of Lisp files.
-(setq load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH")))
+(let ((build-root (expand-file-name ".." invocation-directory)))
+  (setq load-path (list (expand-file-name "lisp" build-root))))
 
 (load "very-early-lisp" nil t)
 
@@ -85,10 +86,8 @@
 (load "packages.el")
 (load "setup-paths.el")
 (load "dump-paths.el")
-
-(setq
- load-path
- (nconc load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))))
+(require 'custom)
+(load "process")
 
 (let (preloaded-file-list)
   (load (expand-file-name "../lisp/dumped-lisp.el"))