Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents b8cc9ab3f761
children da8ed4261e83
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
1 ;;; make-docfile.el --- Cache docstrings in external file 1 ;;; make-docfile.el --- Cache docstrings in external file
2 2
3 ;; Copyright (C) 1985, 1986, 1992-1995, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1992-1995, 1997 Free Software Foundation, Inc.
4 4
5 ;; Author: Unknown 5 ;; Author: Unknown
6 ;; Maintainer: Steven L Baur <steve@xemacs.org> 6 ;; Maintainer: Steven L Baur <steve@altair.xemacs.org>
7 ;; Keywords: internal 7 ;; Keywords: internal
8 8
9 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
10 10
11 ;; XEmacs is free software; you can redistribute it and/or modify it 11 ;; XEmacs is free software; you can redistribute it and/or modify it
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 (let ((build-root (expand-file-name ".." invocation-directory))) 78 (setq load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH")))
79 (setq load-path (list (expand-file-name "lisp" build-root))))
80 79
81 (load "very-early-lisp" nil t) 80 (load "very-early-lisp" nil t)
82 81
83 ;; Then process the autoloads 82 ;; Then process the autoloads
84 (setq autoload-file-name "auto-autoloads.elc") 83 (setq autoload-file-name "auto-autoloads.elc")
85 (load "find-paths.el") 84 (load "find-paths.el")
86 (load "packages.el") 85 (load "packages.el")
87 (load "setup-paths.el") 86 (load "setup-paths.el")
88 (load "dump-paths.el") 87 (load "dump-paths.el")
89 (require 'custom) 88
90 (load "process") 89 (setq
90 load-path
91 (nconc load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))))
91 92
92 (let (preloaded-file-list) 93 (let (preloaded-file-list)
93 (load (expand-file-name "../lisp/dumped-lisp.el")) 94 (load (concat default-directory "../lisp/dumped-lisp.el"))
94 95
95 (let ((package-preloaded-file-list 96 (let ((package-preloaded-file-list
96 (packages-collect-package-dumped-lisps late-package-load-path))) 97 (packages-collect-package-dumped-lisps late-package-load-path)))
97 98
98 (setq preloaded-file-list 99 (setq preloaded-file-list