Mercurial > hg > xemacs-beta

comparison lisp/update-elc.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 966663fcf606
children 6330739388db
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
90 ;; (print (prin1-to-string update-elc-files-to-compile)) 90 ;; (print (prin1-to-string update-elc-files-to-compile))
91 91
92 (let (preloaded-file-list site-load-packages) 92 (let (preloaded-file-list site-load-packages)
93 (load (concat default-directory "../lisp/dumped-lisp.el")) 93 (load (concat default-directory "../lisp/dumped-lisp.el"))
94 94
95 (print (format "%S" package-path))
96
97 ;; Path setup 95 ;; Path setup
98 (let ((package-preloaded-file-list 96 (let ((package-preloaded-file-list
99 (packages-collect-package-dumped-lisps late-package-load-path))) 97 (packages-collect-package-dumped-lisps late-package-load-path)))
100 98
101 (setq preloaded-file-list 99 (setq preloaded-file-list
118 (setq arg (locate-library arg)) 116 (setq arg (locate-library arg))
119 (if (null arg) 117 (if (null arg)
120 (progn 118 (progn
121 (print (format "Error: Library file %s not found" 119 (print (format "Error: Library file %s not found"
122 (car preloaded-file-list))) 120 (car preloaded-file-list)))
121 ;; Uncomment in case of trouble
122 ;;(print (format "late-packages: %S" late-packages))
123 ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name)))
123 (kill-emacs))) 124 (kill-emacs)))
124 (if (string-match "\\.elc?\\'" arg) 125 (if (string-match "\\.elc?\\'" arg)
125 (setq arg (substring arg 0 (match-beginning 0)))) 126 (setq arg (substring arg 0 (match-beginning 0))))
126 (if (and (null (member arg processed)) 127 (if (and (null (member arg processed))
127 (file-exists-p (concat arg ".el")) 128 (file-exists-p (concat arg ".el"))