Mercurial > hg > xemacs-beta

comparison lisp/update-elc.el @ 223:2c611d1463a6 r20-4b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents 262b8bb4a523
children 0e522484dd2a
comparison
equal deleted inserted replaced
222:aae4c8b01452 223:2c611d1463a6
27 27
28 ;;; Commentary: 28 ;;; Commentary:
29 29
30 ;; Byte compile the .EL files necessary to dump out xemacs. 30 ;; Byte compile the .EL files necessary to dump out xemacs.
31 ;; Use this file like this: 31 ;; Use this file like this:
32 ;; 32
33 ;; temacs -batch -l ../lisp/update-elc.el $lisp 33 ;; temacs -batch -l ../lisp/update-elc.el $lisp
34 ;; 34
35 ;; where $lisp comes from the Makefile. .elc files listed in $lisp will 35 ;; where $lisp comes from the Makefile. .elc files listed in $lisp will
36 ;; cause the corresponding .el file to be compiled. .el files listed in 36 ;; cause the corresponding .el file to be compiled. .el files listed in
37 ;; $lisp will be ignored. 37 ;; $lisp will be ignored.
38 ;; 38
39 ;; (the idea here is that you can bootstrap if your .ELC files 39 ;; (the idea here is that you can bootstrap if your .ELC files
40 ;; are missing or badly out-of-date) 40 ;; are missing or badly out-of-date)
41 41
42 ;; Currently this code gets the list of files to check passed to it from 42 ;; Currently this code gets the list of files to check passed to it from
43 ;; src/Makefile. This must be fixed. -slb 43 ;; src/Makefile. This must be fixed. -slb
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 ;(load "backquote") 84 ;; At this point we need to have the package path initialized
85 ;(load "bytecomp-runtime") 85 (packages-find-packages package-path t t)
86 ;(load "subr")
87 ;(load "replace")
88 ;(load "version.el")
89 ;(load "cl")
90 ;(load "featurep")
91 86
92 ;; (print (prin1-to-string update-elc-files-to-compile)) 87 ;; (print (prin1-to-string update-elc-files-to-compile))
93 88
94 (let (preloaded-file-list site-load-packages) 89 (let (preloaded-file-list site-load-packages)
95 (load (concat default-directory "../lisp/dumped-lisp.el")) 90 (load (concat default-directory "../lisp/dumped-lisp.el"))