Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 8efd647ea9ca
children b2472a1930f2
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
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 (define-function 'defalias 'define-function) 78 (define-function 'defalias 'define-function)
79
80 (setq load-path (decode-path-internal (getenv "EMACSBOOTSTRAPLOADPATH")))
81
79 (let ((temp-path (expand-file-name "." (car load-path)))) 82 (let ((temp-path (expand-file-name "." (car load-path))))
80 (setq load-path (nconc (mapcar 83 (setq load-path (nconc (mapcar
81 #'(lambda (i) (concat i "/")) 84 #'(lambda (i) (concat i "/"))
82 (directory-files temp-path t "^[^-.]" 85 (directory-files temp-path t "^[^-.]"
83 nil 'dirs-only)) 86 nil 'dirs-only))
86 89
87 ;; Then process the autoloads 90 ;; Then process the autoloads
88 (setq autoload-file-name "auto-autoloads.elc") 91 (setq autoload-file-name "auto-autoloads.elc")
89 (setq source-directory (concat default-directory "../lisp")) 92 (setq source-directory (concat default-directory "../lisp"))
90 ;; (print (concat "Source directory: " source-directory)) 93 ;; (print (concat "Source directory: " source-directory))
94 (load "find-paths.el")
91 (load "packages.el") 95 (load "packages.el")
92 ;; (load "setup-paths.el") 96 (load "setup-paths.el")
97 (load "dump-paths.el")
93 98
94 (let (preloaded-file-list) 99 (let (preloaded-file-list)
95 (load (concat default-directory "../lisp/dumped-lisp.el")) 100 (load (concat default-directory "../lisp/dumped-lisp.el"))
96 ;; Add package lisp directories to load-path (for autoloads) 101
97 ;; Add files dumped from lisp packages 102 (let ((package-preloaded-file-list
98 ;(paths-setup-paths) 103 (packages-collect-package-dumped-lisps late-package-load-path)))
99 (packages-find-packages package-path t t) 104
100 (setq preloaded-file-list 105 (setq preloaded-file-list
101 (append preloaded-file-list packages-hardcoded-lisp)) 106 (append package-preloaded-file-list
107 preloaded-file-list
108 packages-hardcoded-lisp)))
109
102 (while preloaded-file-list 110 (while preloaded-file-list
103 (let ((arg0 (packages-add-suffix (car preloaded-file-list))) 111 (let ((arg0 (packages-add-suffix (car preloaded-file-list)))
104 arg) 112 arg)
105 (setq arg (locate-library arg0)) 113 (setq arg (locate-library arg0))
106 (if (null arg) 114 (if (null arg)