XEmacs 21.2.31 "Iris".

[chise/xemacs-chise.git.1] / lisp / make-docfile.el

diff --git a/lisp/make-docfile.el b/lisp/make-docfile.el
index 3b77495..7a9365c 100644 (file)
--- a/lisp/make-docfile.el
+++ b/lisp/make-docfile.el
@@ -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)
 
@@ -86,10 +87,6 @@
 (load "setup-paths.el")
 (load "dump-paths.el")
 
-(setq
- load-path
- (nconc load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))))
-
 (let (preloaded-file-list)
   (load (expand-file-name "../lisp/dumped-lisp.el"))