Mercurial > hg > xemacs-beta

diff lisp/startup.el @ 3643:86be8d3dd45d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-10-30 11:17:43 by malcolmp] Prevent a frame appearing when starting with -unmapped.
author malcolmp
date Mon, 30 Oct 2006 11:17:46 +0000
parents 316fddbf58e2
children 92013722573f
line wrap: on
line diff
--- a/lisp/startup.el	Sun Oct 29 22:51:26 2006 +0000
+++ b/lisp/startup.el	Mon Oct 30 11:17:46 2006 +0000
@@ -1365,8 +1365,6 @@
     (let* ((after-change-functions nil) ; no font-lock, thank you
 	   (elements (cond (tty (splash-screen-tty-body))
 			   (t (splash-screen-window-body)))))
-      (pop-to-buffer (current-buffer))
-      (delete-other-windows)
       (splash-screen-present elements)
       (set-buffer-modified-p nil))))
 
@@ -1377,6 +1375,8 @@
     (set-buffer buffer)
     (setq buffer-read-only nil)
     (erase-buffer buffer)
+    (pop-to-buffer buffer)
+    (delete-other-windows)
     (display-splash-screen)))
 
 ;;  (let ((present-file