X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Floadup.el;h=fa64a15e9c54fc5dd32ac7596304d1113ff56471;hb=2737412eae9b411d8e806b04d9f15e12cd3128da;hp=df70360a57e96f32ea7d1d7faf4140eb19786be8;hpb=a1655b870904de973c366d85ebdc8adde4ef5e1e;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/loadup.el b/lisp/loadup.el
index df70360..fa64a15 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -275,7 +275,14 @@
   ;; (condition-case () (delete-file "xemacs") (file-error nil))
   (when (fboundp 'really-free)
     (really-free))
-  (dump-emacs (if (featurep 'infodock) "infodock" "xemacs") "temacs")
+  (dump-emacs
+   (cond
+    ((featurep 'infodock) "infodock")
+    ;; #### BILL!!!
+    ;; If we want to dump under a name other than `xemacs', do that here!
+    ;; ((featurep 'gtk) "xemacs-gtk")
+    (t "xemacs"))
+   "temacs")
   (kill-emacs))
 
 ;; Avoid error if user loads some more libraries now.