Mercurial > hg > xemacs-beta

comparison lisp/loadup.el @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents 6330739388db
children 558f606b08ae
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
176 (message "Dumping under the name xemacs") 176 (message "Dumping under the name xemacs")
177 ;; This is handled earlier in the build process. 177 ;; This is handled earlier in the build process.
178 ;; (condition-case () (delete-file "xemacs") (file-error nil)) 178 ;; (condition-case () (delete-file "xemacs") (file-error nil))
179 (when (fboundp 'really-free) 179 (when (fboundp 'really-free)
180 (really-free)) 180 (really-free))
181 (dump-emacs "xemacs" "temacs") 181 (dump-emacs (if (featurep 'infodock) "infodock" "xemacs") "temacs")
182 (kill-emacs)) 182 (kill-emacs))
183 183
184 (when (member "run-temacs" command-line-args) 184 (when (member "run-temacs" command-line-args)
185 (message "\nBootstrapping from temacs...") 185 (message "\nBootstrapping from temacs...")
186 (setq purify-flag nil) 186 (setq purify-flag nil)