Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.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
comparison
equal deleted inserted replaced
401:e0a2a2be14bf 402:5a2589c672dc
73 (setq docfile-out-of-date t)) 73 (setq docfile-out-of-date t))
74 (setq processed (cons arg processed))))) 74 (setq processed (cons arg processed)))))
75 (setq command-line-args (cdr command-line-args))) 75 (setq command-line-args (cdr command-line-args)))
76 76
77 ;; Then process the list of Lisp files. 77 ;; Then process the list of Lisp files.
78 (setq load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))) 78 (let ((build-root (expand-file-name ".." invocation-directory)))
79 (setq load-path (list (expand-file-name "lisp" build-root))))
79 80
80 (load "very-early-lisp" nil t) 81 (load "very-early-lisp" nil t)
81 82
82 ;; Then process the autoloads 83 ;; Then process the autoloads
83 (setq autoload-file-name "auto-autoloads.elc") 84 (setq autoload-file-name "auto-autoloads.elc")
84 (load "find-paths.el") 85 (load "find-paths.el")
85 (load "packages.el") 86 (load "packages.el")
86 (load "setup-paths.el") 87 (load "setup-paths.el")
87 (load "dump-paths.el") 88 (load "dump-paths.el")
88
89 (setq
90 load-path
91 (nconc load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))))
92 89
93 (let (preloaded-file-list) 90 (let (preloaded-file-list)
94 (load (expand-file-name "../lisp/dumped-lisp.el")) 91 (load (expand-file-name "../lisp/dumped-lisp.el"))
95 92
96 (let ((package-preloaded-file-list 93 (let ((package-preloaded-file-list