Mercurial > hg > xemacs-beta
comparison lisp/update-elc-2.el @ 5118:e0db3c197671 ben-lisp-object
merge up to latest default branch, doesn't compile yet
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Sat, 26 Dec 2009 21:18:49 -0600 |
| parents | 9fec7fedbf1b |
| children | 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 5117:3742ea8250b5 | 5118:e0db3c197671 |
|---|---|
| 63 "^update-elc-2\\.el$" | 63 "^update-elc-2\\.el$" |
| 64 "^dumped-lisp\\.el$" | 64 "^dumped-lisp\\.el$" |
| 65 "^make-docfile\\.el$" | 65 "^make-docfile\\.el$" |
| 66 "^site-start\\.el$" | 66 "^site-start\\.el$" |
| 67 "^site-load\\.el$" | 67 "^site-load\\.el$" |
| 68 "^site-init\\.el$" | 68 "^site-init\\.el$")) |
| 69 "^version\\.el$")) | |
| 70 | 69 |
| 71 (defvar dirfiles-table (make-hash-table :test 'equal)) | 70 (defvar dirfiles-table (make-hash-table :test 'equal)) |
| 72 | 71 |
| 73 ;; SEEN accumulates the list of already-handled dirs. | 72 ;; SEEN accumulates the list of already-handled dirs. |
| 74 (defun do-update-elc-2 (dir compile-stage-p seen) | 73 (defun do-update-elc-2 (dir compile-stage-p seen) |
| 188 (load "cus-dep") | 187 (load "cus-dep") |
| 189 (Custom-make-dependencies dir) | 188 (Custom-make-dependencies dir) |
| 190 (byte-recompile-file (expand-file-name "custom-load.el" dir) 0) | 189 (byte-recompile-file (expand-file-name "custom-load.el" dir) 0) |
| 191 (when (featurep 'mule) | 190 (when (featurep 'mule) |
| 192 (Custom-make-dependencies (expand-file-name "mule" dir)) | 191 (Custom-make-dependencies (expand-file-name "mule" dir)) |
| 193 (byte-recompile-file (expand-file-name "mule/custom-load.el" dir) 0)) | 192 (byte-recompile-file (expand-file-name "mule/custom-load.el" dir) 0) |
| 194 ) | 193 ;; See the eval-when-compile in the definition of |
| 194 ;; Installation-file-coding-system; if the file name sniffing or the | |
| 195 ;; available coding systems have changed, version.elc should be | |
| 196 ;; rebuilt. | |
| 197 (byte-recompile-file (expand-file-name "version.el" dir) 0))) | |
| 195 (setq command-line-args-left nil)) | 198 (setq command-line-args-left nil)) |
| 196 | 199 |
| 197 ;;; update-elc-2.el ends here | 200 ;;; update-elc-2.el ends here |