XEmacs 21.2.31 "Iris".

[chise/xemacs-chise.git] / lisp / loadup.el

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 6190d5e..964cd54 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -65,8 +65,9 @@
                (prog1 (buffer-substring)
                  (kill-buffer (current-buffer)))))
 
-       (setq load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH")))
-       (setq module-load-path (split-path (getenv "EMACSBOOTSTRAPMODULEPATH")))
+       (let ((build-root (expand-file-name ".." invocation-directory)))
+         (setq load-path (list (expand-file-name "lisp" build-root)))
+         (setq module-load-path (list (expand-file-name "modules" build-root))))
 
        ;; message not defined yet ...
        (external-debugging-output (format "\nUsing load-path %s" load-path))