Mercurial > hg > xemacs-beta

changeset 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 688f75d3668d
children cb9e9a46686b
files lisp/ChangeLog lisp/startup.el
diffstat 2 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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):
--- 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