projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(U+556B): Separate CB-00065 and M059207; unify G1-7C2F; fix
[chise/xemacs-chise.git-]
/
lisp
/
make-docfile.el
diff --git
a/lisp/make-docfile.el
b/lisp/make-docfile.el
index
3b77495
..
730a941
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 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)
(load "very-early-lisp" nil t)
@@
-85,10
+86,8
@@
(load "packages.el")
(load "setup-paths.el")
(load "dump-paths.el")
(load "packages.el")
(load "setup-paths.el")
(load "dump-paths.el")
-
-(setq
- load-path
- (nconc load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))))
+(require 'custom)
+(load "process")
(let (preloaded-file-list)
(load (expand-file-name "../lisp/dumped-lisp.el"))
(let (preloaded-file-list)
(load (expand-file-name "../lisp/dumped-lisp.el"))