Mercurial > hg > xemacs-beta
comparison lisp/loadup.el @ 373:6240c7796c7a r21-2b2
Import from CVS: tag r21-2b2
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:04:06 +0200 |
| parents | cc15677e0335 |
| children | 8626e4521993 |
comparison
equal
deleted
inserted
replaced
| 372:49e1ed2d7ed8 | 373:6240c7796c7a |
|---|---|
| 62 ;; initialized that we can start dumping "standard" lisp. | 62 ;; initialized that we can start dumping "standard" lisp. |
| 63 ;; Dumped lisp from external packages is added when we search | 63 ;; Dumped lisp from external packages is added when we search |
| 64 ;; the package path. | 64 ;; the package path. |
| 65 ;; #### This code is duplicated in two other places. | 65 ;; #### This code is duplicated in two other places. |
| 66 (let ((temp-path (expand-file-name "." (car load-path)))) | 66 (let ((temp-path (expand-file-name "." (car load-path)))) |
| 67 (setq source-directory temp-path) | |
| 68 (setq load-path (nconc (mapcar | 67 (setq load-path (nconc (mapcar |
| 69 #'(lambda (i) (concat i "/")) | 68 #'(lambda (i) (concat i "/")) |
| 70 (directory-files temp-path t "^[^-.]" | 69 (directory-files temp-path t "^[^-.]" |
| 71 nil 'dirs-only)) | 70 nil 'dirs-only)) |
| 72 (cons (file-name-as-directory temp-path) | 71 (cons (file-name-as-directory temp-path) |
| 181 (when (fboundp 'really-free) | 180 (when (fboundp 'really-free) |
| 182 (really-free)) | 181 (really-free)) |
| 183 (dump-emacs (if (featurep 'infodock) "infodock" "xemacs") "temacs") | 182 (dump-emacs (if (featurep 'infodock) "infodock" "xemacs") "temacs") |
| 184 (kill-emacs)) | 183 (kill-emacs)) |
| 185 | 184 |
| 185 ;; Avoid error if user loads some more libraries now. | |
| 186 (setq purify-flag nil) | |
| 187 | |
| 186 (when (member "run-temacs" command-line-args) | 188 (when (member "run-temacs" command-line-args) |
| 187 (message "\nBootstrapping from temacs...") | 189 (message "\nBootstrapping from temacs...") |
| 188 (setq purify-flag nil) | |
| 189 (setq inhibit-early-packages t) | |
| 190 (setq inhibit-autoloads t) | |
| 191 ;; Remove all args up to and including "run-temacs" | 190 ;; Remove all args up to and including "run-temacs" |
| 192 (apply #'run-emacs-from-temacs (cdr (member "run-temacs" command-line-args))) | 191 (apply #'run-emacs-from-temacs (cdr (member "run-temacs" command-line-args))) |
| 193 ;; run-emacs-from-temacs doesn't actually return anyway. | 192 ;; run-emacs-from-temacs doesn't actually return anyway. |
| 194 (kill-emacs)) | 193 (kill-emacs)) |
| 195 | |
| 196 ;; Avoid error if user loads some more libraries now. | |
| 197 (setq purify-flag nil) | |
| 198 | 194 |
| 199 ;; XEmacs change | 195 ;; XEmacs change |
| 200 ;; If you are using 'recompile', then you should have used -l loadup-el.el | 196 ;; If you are using 'recompile', then you should have used -l loadup-el.el |
| 201 ;; so that the .el files always get loaded (the .elc files may be out-of- | 197 ;; so that the .el files always get loaded (the .elc files may be out-of- |
| 202 ;; date or bad). | 198 ;; date or bad). |