# HG changeset patch
# User malcolmp
# Date 1162207066 0
# Node ID 86be8d3dd45dfa343023f7f975f46ec36bba3d6e
# Parent  688f75d3668db26e1c4cc9989311076eab9d89c8
[xemacs-hg @ 2006-10-30 11:17:43 by malcolmp]
Prevent a frame appearing when starting with -unmapped.

diff -r 688f75d3668d -r 86be8d3dd45d lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 29 22:51:26 2006 +0000
+++ b/lisp/ChangeLog	Mon Oct 30 11:17:46 2006 +0000
@@ -1,3 +1,10 @@
+2006-10-30  Malcolm Purvis  <malcolmp@xemacs.org>
+
+	* startup.el (display-splash-screen):  No longer bring buffer the
+	front.  Fixes problems with -unmapped.
+	* startup.el (xemacs-splash-buffer): Pop splash buffer to the
+	front here instead.
+
 2006-10-27  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* files.el (revert-buffer-internal):
diff -r 688f75d3668d -r 86be8d3dd45d lisp/startup.el
--- 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