Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c5d627a313b1
children c6de09ad3017
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
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 79
80 (setq load-path (decode-path-internal (getenv "EMACSBOOTSTRAPLOADPATH"))) 80 (setq load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH")))
81 81
82 ;; Then process the autoloads 82 ;; Then process the autoloads
83 (setq autoload-file-name "auto-autoloads.elc") 83 (setq autoload-file-name "auto-autoloads.elc")
84 (setq source-directory (concat default-directory "../lisp")) 84 (setq source-directory (concat default-directory "../lisp"))
85 ;; (print (concat "Source directory: " source-directory)) 85 ;; (print (concat "Source directory: " source-directory))
88 (load "setup-paths.el") 88 (load "setup-paths.el")
89 (load "dump-paths.el") 89 (load "dump-paths.el")
90 90
91 (setq 91 (setq
92 load-path 92 load-path
93 (nconc load-path (decode-path-internal (getenv "EMACSBOOTSTRAPLOADPATH")))) 93 (nconc load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))))
94 94
95 (let (preloaded-file-list) 95 (let (preloaded-file-list)
96 (load (concat default-directory "../lisp/dumped-lisp.el")) 96 (load (concat default-directory "../lisp/dumped-lisp.el"))
97 97
98 (let ((package-preloaded-file-list 98 (let ((package-preloaded-file-list