Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 269:b2472a1930f2 r20-5b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b33
author cvs
date Mon, 13 Aug 2007 10:27:19 +0200
parents 966663fcf606
children c5d627a313b1
comparison
equal deleted inserted replaced
268:6ced69ccd85f 269:b2472a1930f2
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 79
80 (setq load-path (decode-path-internal (getenv "EMACSBOOTSTRAPLOADPATH"))) 80 (setq load-path (decode-path-internal (getenv "EMACSBOOTSTRAPLOADPATH")))
81 81
82 (let ((temp-path (expand-file-name "." (car load-path))))
83 (setq load-path (nconc (mapcar
84 #'(lambda (i) (concat i "/"))
85 (directory-files temp-path t "^[^-.]"
86 nil 'dirs-only))
87 (cons (file-name-as-directory temp-path)
88 load-path))))
89
90 ;; Then process the autoloads 82 ;; Then process the autoloads
91 (setq autoload-file-name "auto-autoloads.elc") 83 (setq autoload-file-name "auto-autoloads.elc")
92 (setq source-directory (concat default-directory "../lisp")) 84 (setq source-directory (concat default-directory "../lisp"))
93 ;; (print (concat "Source directory: " source-directory)) 85 ;; (print (concat "Source directory: " source-directory))
94 (load "find-paths.el") 86 (load "find-paths.el")
95 (load "packages.el") 87 (load "packages.el")
96 (load "setup-paths.el") 88 (load "setup-paths.el")
97 (load "dump-paths.el") 89 (load "dump-paths.el")
90
91 (setq
92 load-path
93 (nconc load-path (decode-path-internal (getenv "EMACSBOOTSTRAPLOADPATH"))))
98 94
99 (let (preloaded-file-list) 95 (let (preloaded-file-list)
100 (load (concat default-directory "../lisp/dumped-lisp.el")) 96 (load (concat default-directory "../lisp/dumped-lisp.el"))
101 97
102 (let ((package-preloaded-file-list 98 (let ((package-preloaded-file-list