Mercurial > hg > xemacs-beta

comparison lisp/update-elc.el @ 227:0e522484dd2a r20-5b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 2c611d1463a6
children 85a06df23a9a
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
79 (let ((temp-path (expand-file-name "." (car load-path)))) 79 (let ((temp-path (expand-file-name "." (car load-path))))
80 (setq load-path (nconc (directory-files temp-path t "^[^-.]" 80 (setq load-path (nconc (directory-files temp-path t "^[^-.]"
81 nil 'dirs-only) 81 nil 'dirs-only)
82 (cons temp-path load-path)))) 82 (cons temp-path load-path))))
83 83
84 ;; At this point we need to have the package path initialized
85 (packages-find-packages package-path t t)
86 84
87 ;; (print (prin1-to-string update-elc-files-to-compile)) 85 ;; (print (prin1-to-string update-elc-files-to-compile))
88 86
89 (let (preloaded-file-list site-load-packages) 87 (let (preloaded-file-list site-load-packages)
90 (load (concat default-directory "../lisp/dumped-lisp.el")) 88 (load (concat default-directory "../lisp/dumped-lisp.el"))
89 ;; At this point we need to have the package path initialized
90 (packages-find-packages package-path t t)
91 ;; (print (prin1-to-string preloaded-file-list)) 91 ;; (print (prin1-to-string preloaded-file-list))
92 (load (concat default-directory "../site-packages") t t) 92 (load (concat default-directory "../site-packages") t t)
93 (setq preloaded-file-list 93 (setq preloaded-file-list
94 (append packages-hardcoded-lisp 94 (append packages-hardcoded-lisp
95 preloaded-file-list 95 preloaded-file-list