Mercurial > hg > xemacs-beta

comparison lisp/update-elc.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 c5d627a313b1
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
61 ; src)))))) 61 ; src))))))
62 ; ;; -batch gets filtered out. 62 ; ;; -batch gets filtered out.
63 ; (nthcdr 3 command-line-args)))) 63 ; (nthcdr 3 command-line-args))))
64 64
65 (define-function 'defalias 'define-function) 65 (define-function 'defalias 'define-function)
66
67 (setq load-path (decode-path-internal (getenv "EMACSBOOTSTRAPLOADPATH")))
68
69 (load "find-paths.el")
66 (load "packages.el") 70 (load "packages.el")
67 ;;; (load "setup-paths.el") 71 (load "setup-paths.el")
72 (load "dump-paths.el")
68 73
69 (let ((autol (packages-list-autoloads))) 74 (let ((autol (packages-list-autoloads)))
70 ;; (print (prin1-to-string autol)) 75 ;; (print (prin1-to-string autol))
71 (while autol 76 (while autol
72 (let ((src (car autol))) 77 (let ((src (car autol)))
80 (let ((temp-path (expand-file-name "." (car load-path)))) 85 (let ((temp-path (expand-file-name "." (car load-path))))
81 (setq load-path (nconc (directory-files temp-path t "^[^-.]" 86 (setq load-path (nconc (directory-files temp-path t "^[^-.]"
82 nil 'dirs-only) 87 nil 'dirs-only)
83 (cons temp-path load-path)))) 88 (cons temp-path load-path))))
84 89
85
86 ;; (print (prin1-to-string update-elc-files-to-compile)) 90 ;; (print (prin1-to-string update-elc-files-to-compile))
87 91
88 (let (preloaded-file-list site-load-packages) 92 (let (preloaded-file-list site-load-packages)
89 (load (concat default-directory "../lisp/dumped-lisp.el")) 93 (load (concat default-directory "../lisp/dumped-lisp.el"))
90 ;; At this point we need to have the package path initialized 94
91 ;(paths-setup-paths) 95 (print (format "%S" package-path))
92 (packages-find-packages package-path t t) 96
93 ;; (print (prin1-to-string preloaded-file-list)) 97 ;; Path setup
98 (let ((package-preloaded-file-list
99 (packages-collect-package-dumped-lisps late-package-load-path)))
100
101 (setq preloaded-file-list
102 (append package-preloaded-file-list
103 preloaded-file-list
104 packages-hardcoded-lisp)))
105
94 (load (concat default-directory "../site-packages") t t) 106 (load (concat default-directory "../site-packages") t t)
95 (setq preloaded-file-list 107 (setq preloaded-file-list
96 (append packages-hardcoded-lisp 108 (append packages-hardcoded-lisp
97 preloaded-file-list 109 preloaded-file-list
98 packages-useful-lisp 110 packages-useful-lisp