Mercurial > hg > xemacs-beta

comparison lisp/update-elc.el @ 265:8efd647ea9ca r20-5b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b31
author cvs
date Mon, 13 Aug 2007 10:25:37 +0200
parents 727739f917cb
children 966663fcf606
comparison
equal deleted inserted replaced
264:682d2a9d41a5 265:8efd647ea9ca
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 (load "packages.el") 66 (load "packages.el")
67 ;;; (load "setup-paths.el")
67 68
68 (let ((autol (packages-list-autoloads))) 69 (let ((autol (packages-list-autoloads)))
69 ;; (print (prin1-to-string autol)) 70 ;; (print (prin1-to-string autol))
70 (while autol 71 (while autol
71 (let ((src (car autol))) 72 (let ((src (car autol)))
85 ;; (print (prin1-to-string update-elc-files-to-compile)) 86 ;; (print (prin1-to-string update-elc-files-to-compile))
86 87
87 (let (preloaded-file-list site-load-packages) 88 (let (preloaded-file-list site-load-packages)
88 (load (concat default-directory "../lisp/dumped-lisp.el")) 89 (load (concat default-directory "../lisp/dumped-lisp.el"))
89 ;; At this point we need to have the package path initialized 90 ;; At this point we need to have the package path initialized
91 ;(paths-setup-paths)
90 (packages-find-packages package-path t t) 92 (packages-find-packages package-path t t)
91 ;; (print (prin1-to-string preloaded-file-list)) 93 ;; (print (prin1-to-string preloaded-file-list))
92 (load (concat default-directory "../site-packages") t t) 94 (load (concat default-directory "../site-packages") t t)
93 (setq preloaded-file-list 95 (setq preloaded-file-list
94 (append packages-hardcoded-lisp 96 (append packages-hardcoded-lisp