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

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/update-elc.el	Mon Aug 13 11:14:35 2007 +0200
+++ b/lisp/update-elc.el	Mon Aug 13 11:14:58 2007 +0200
@@ -62,7 +62,8 @@
 ;		    ;; -batch gets filtered out.
 ;		    (nthcdr 3 command-line-args))))
 
-(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)