Mercurial > hg > xemacs-beta

diff lisp/loadup.el @ 402:5a2589c672dc r21-2-31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-31
author cvs
date Mon, 13 Aug 2007 11:14:58 +0200
parents 74fd4e045ea6
children b8cc9ab3f761
line wrap: on
line diff
--- a/lisp/loadup.el	Mon Aug 13 11:14:35 2007 +0200
+++ b/lisp/loadup.el	Mon Aug 13 11:14:58 2007 +0200
@@ -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))