Mercurial > hg > xemacs-beta

comparison lisp/loadup.el @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents abe6d1db359e
children 5636ae1c0234
comparison
equal deleted inserted replaced
461:120ed4009e51 462:0784d089fdc9
273 (message "Dumping under the name xemacs") 273 (message "Dumping under the name xemacs")
274 ;; This is handled earlier in the build process. 274 ;; This is handled earlier in the build process.
275 ;; (condition-case () (delete-file "xemacs") (file-error nil)) 275 ;; (condition-case () (delete-file "xemacs") (file-error nil))
276 (when (fboundp 'really-free) 276 (when (fboundp 'really-free)
277 (really-free)) 277 (really-free))
278 (dump-emacs (if (featurep 'infodock) "infodock" "xemacs") "temacs") 278 (dump-emacs
279 (cond
280 ((featurep 'infodock) "infodock")
281 ;; #### BILL!!!
282 ;; If we want to dump under a name other than `xemacs', do that here!
283 ;; ((featurep 'gtk) "xemacs-gtk")
284 (t "xemacs"))
285 "temacs")
279 (kill-emacs)) 286 (kill-emacs))
280 287
281 ;; Avoid error if user loads some more libraries now. 288 ;; Avoid error if user loads some more libraries now.
282 (setq purify-flag nil) 289 (setq purify-flag nil)
283 290