CVS update by malcolmp xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: malcolmp
  Date: 06/10/30 12:17:48

  Modified:    xemacs/lisp ChangeLog startup.el
Log:
Prevent a frame appearing when starting with -unmapped.

Revision  Changes    Path
1.763     +7 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.762
retrieving revision 1.763
diff -u -p -r1.762 -r1.763
--- ChangeLog	2006/10/27 19:07:32	1.762
+++ ChangeLog	2006/10/30 11:17:43	1.763
@@ -1,3 +1,10 @@
+2006-10-30  Malcolm Purvis  <malcolmp at 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 at parhasard.net>
 
 	* files.el (revert-buffer-internal):



1.57      +2 -2      XEmacs/xemacs/lisp/startup.el

Index: startup.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/startup.el,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -p -r1.56 -r1.57
--- startup.el	2006/04/25 14:01:53	1.56
+++ startup.el	2006/10/30 11:17:46	1.57
@@ -1365,8 +1365,6 @@ Copyright (C) 1995-2004 Ben Wing.")
     (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 @@ Copyright (C) 1995-2004 Ben Wing.")
     (set-buffer buffer)
     (setq buffer-read-only nil)
     (erase-buffer buffer)
+    (pop-to-buffer buffer)
+    (delete-other-windows)
     (display-splash-screen)))
 
 ;;  (let ((present-file