[S] [PATCH] Fix broken -unmapped.

[Malcolm Purvis]

SUPERSEDES m2u07e5ncc.fsf at silver.local

[I've discovered that I posted this patch ages ago but never committed it.]

Way back in April Giacomo Boffi reported that -unmapped was broken in 21.5.
This fixes it so once again no frame appears.

The problem was that the updated version of display-splash-screen called
pop-to-buffer, which mapped the frame.  pop-to-buffer is moved to the
interactive function xemacs-splash-buffer instead.

Malcolm




lisp/ChangeLog addition:

2006-10-20  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.


xemacs-unmapped source patch:
Diff command:   cvs-rw -q diff -u
Files affected: lisp/startup.el

Index: lisp/startup.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/startup.el,v
retrieving revision 1.56
diff -u -r1.56 startup.el
--- lisp/startup.el	2006/04/25 14:01:53	1.56
+++ lisp/startup.el	2006/10/20 12:32:22
@@ -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

-- 
		     Malcolm Purvis <malcolmp at xemacs.org>