Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/loadup.el	Mon Aug 13 11:43:25 2007 +0200
+++ b/lisp/loadup.el	Mon Aug 13 11:44:37 2007 +0200
@@ -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.