Re: New start up splash screen annoyance...

[Eli Zaretskii]

> From: Juri Linkov <address@hidden>
> Date: Sat, 22 Sep 2007 17:11:59 +0300
> Cc: address@hidden
> 
> >     I have not checked the latest version but I agree that any "Dismiss in
> >     future" should only affect the splash screen when file names are given
> >     on the command line.
> >
> > I agree.  And the "don't show this in the future" should only be
> > shown when there are file name args.
> >
> > Would someone please implement that?
> 
> Done.

What about the demonstration of concept in the patch below?  I think
popping the splash screen in a separate frame is superior to dividing
the initial frame, and doing so makes all kinds of complications with
"concise" splash screen and whether splash should be in upper or lower
window, a non-issue.  IIRC, Richard agreed to the idea of a separate
frame.

Note that the patch below is just a first unpolished cut; in
particular, it doesn't yet work well with the file arguments.  I just
wanted to see if people liked it, before inverting more work.

Index: lisp/startup.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v
retrieving revision 1.460
diff -u -r1.460 startup.el
--- lisp/startup.el     22 Sep 2007 14:02:26 -0000      1.460
+++ lisp/startup.el     22 Sep 2007 18:05:19 -0000
@@ -1460,10 +1460,29 @@
   (interactive)
   (quit-window t))
 
+(defvar splash-frame-parameters
+  '((name . "GNU Emacs")
+    (top . 150)
+    (left . 200)
+    (height . 34)
+    (width . 64)
+    (user-position . t)
+    (vertical-scroll-bars . nil)
+    (menu-bar-lines . nil)
+    (tool-bar-lines . nil)
+    (left-fringe . 0)
+    (right-fringe . 0)
+    (minibuffer . nil)
+    (cursor-type . nil)
+    (unsplittable . t)
+    (auto-raise . t))
+  "Frame parameters used for splash screen.")
+
 (defun fancy-startup-screen (&optional concise)
   "Display fancy startup screen.
 If CONCISE is non-nil, display a concise version of the
 splash screen in another window."
+  (let ((splash-frame
   (with-current-buffer (get-buffer-create "*GNU Emacs*")
     (let ((inhibit-read-only t))
       (erase-buffer)
@@ -1485,13 +1504,17 @@
     (setq buffer-read-only t)
     (if (and view-read-only (not view-mode))
        (view-mode-enter nil 'kill-buffer))
-    (goto-char (point-min)))
+    (goto-char (point-min))
+    (make-frame splash-frame-parameters))))
+    (select-frame splash-frame)
+    (setq mode-line-format nil)
+    (set-frame-height (1- (frame-height)))
   (if (or (window-minibuffer-p)
          (window-dedicated-p (selected-window)))
       (pop-to-buffer (current-buffer)))
   (if concise
       (display-buffer (get-buffer "*GNU Emacs*"))
-    (switch-to-buffer "*GNU Emacs*")))
+    (switch-to-buffer "*GNU Emacs*"))))
 
 (defun fancy-about-screen ()
   "Display fancy About screen."