How to show *Warnings* buffer at startup time?

How to show *Warnings* buffer at startup time?

[Kenichi Handa]

I'm going to change create-fontset-from-x-resource
(fontset.el) as this:

@@ -1049,8 +1058,11 @@
     (while (setq fontset-spec (x-get-resource (format "fontset-%d" idx)
 					      (format "Fontset-%d" idx)))
       (condition-case nil
-	  (create-fontset-from-fontset-spec fontset-spec t 'noerror)
-	(error (message "Fontset-%d: invalid specification in X resource" idx)))
+	  (create-fontset-from-fontset-spec fontset-spec t)
+	(error (display-warning
+		'initialization
+		(format "Fontset-%d: invalid specification in X resource" idx)
+		:warning)))
       (setq idx (1+ idx)))))
 
 ;;

But the *Warnings* buffer doesn't show up at startup time
even if create-fontset-from-fontset-spec causes an error.
Could someone tell me what is wrong with the above change?

If it is because the X frame is not yet created at that
time, don't we need something like the attached patch?

---
Kenichi Handa
handa@m17n.org

--- startup.el.~1.527.~	2009-02-23 09:51:02.000000000 +0900
+++ startup.el	2009-03-18 22:16:35.000000000 +0900
@@ -1235,7 +1235,13 @@
   (if (and (boundp 'x-session-previous-id)
            (stringp x-session-previous-id))
       (with-no-warnings
-	(emacs-session-restore x-session-previous-id))))
+	(emacs-session-restore x-session-previous-id)))
+
+  (let ((warning-buf (get-buffer "*Warnings*")))
+    (if (and warning-buf
+	     (not (get-buffer-window warning-buf))
+	     (> (buffer-size warning-buf) 0))
+	(display-buffer warning-buf))))
 
 (defcustom initial-scratch-message (purecopy "\
 ;; This buffer is for notes you don't want to save, and for Lisp evaluation.

Re: How to show *Warnings* buffer at startup time?

[Lennart Borgman]

On Wed, Mar 18, 2009 at 2:22 PM, Kenichi Handa <handa@m17n.org> wrote:
> I'm going to change create-fontset-from-x-resource
> (fontset.el) as this:
>
> @@ -1049,8 +1058,11 @@
>     (while (setq fontset-spec (x-get-resource (format "fontset-%d" idx)
>                                              (format "Fontset-%d" idx)))
>       (condition-case nil
> -         (create-fontset-from-fontset-spec fontset-spec t 'noerror)
> -       (error (message "Fontset-%d: invalid specification in X resource" idx)))
> +         (create-fontset-from-fontset-spec fontset-spec t)
> +       (error (display-warning
> +               'initialization
> +               (format "Fontset-%d: invalid specification in X resource" idx)
> +               :warning)))
>       (setq idx (1+ idx)))))
>
>  ;;
>
> But the *Warnings* buffer doesn't show up at startup time
> even if create-fontset-from-fontset-spec causes an error.
> Could someone tell me what is wrong with the above change?


Could it be that something later closes the window that shows the
*Warnings* buffer?

Re: How to show *Warnings* buffer at startup time?

[Kenichi Handa]

In article <e01d8a50903180628o3ff53835rd3e19745492241b0@mail.gmail.com>, Lennart Borgman <lennart.borgman@gmail.com> writes:

> > But the *Warnings* buffer doesn't show up at startup time
> > even if create-fontset-from-fontset-spec causes an error.
> > Could someone tell me what is wrong with the above change?

> Could it be that something later closes the window that shows the
> *Warnings* buffer?

Perhaps.  I found this code in command-line.

  ;; Under X Window, this creates the X frame and deletes the terminal frame.
  (unless (daemonp)
    (frame-initialize))

So, it seems that the window showing *Warnings* in the
initial terminal frame before the above code is deleted, and
the new X frame doesn't have a window showing *Warnings*.

---
Kenichi Handa
handa@m17n.org