comparison 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
comparison
equal deleted inserted replaced
401:e0a2a2be14bf 402:5a2589c672dc
60 ; (set-file-modes x (logior (file-modes x) 128))) 60 ; (set-file-modes x (logior (file-modes x) 128)))
61 ; src)))))) 61 ; src))))))
62 ; ;; -batch gets filtered out. 62 ; ;; -batch gets filtered out.
63 ; (nthcdr 3 command-line-args)))) 63 ; (nthcdr 3 command-line-args))))
64 64
65 (setq load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))) 65 (let ((build-root (expand-file-name ".." invocation-directory)))
66 (setq load-path (list (expand-file-name "lisp" build-root))))
66 67
67 (load "very-early-lisp" nil t) 68 (load "very-early-lisp" nil t)
68 69
69 (load "find-paths.el") 70 (load "find-paths.el")
70 (load "packages.el") 71 (load "packages.el")