Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children a634e3b7acc8
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
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 (require 'custom)
89 (setq 90 (load "process")
90 load-path
91 (nconc load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))))
92 91
93 (let (preloaded-file-list) 92 (let (preloaded-file-list)
94 (load (expand-file-name "../lisp/dumped-lisp.el")) 93 (load (expand-file-name "../lisp/dumped-lisp.el"))
95 94
96 (let ((package-preloaded-file-list 95 (let ((package-preloaded-file-list