[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
How to show *Warnings* buffer at startup time? [Re: Pretest next week]
From: |
Kenichi Handa |
Subject: |
How to show *Warnings* buffer at startup time? [Re: Pretest next week] |
Date: |
Fri, 15 May 2009 13:00:36 +0900 |
In article <address@hidden>, Chong Yidong <address@hidden> writes:
> Hi all,
> I'm planning to make the 23.0.94 pretest next Wednesday, the 20th.
> The release seems to be coming along nicely; the font code seems to have
> converged at last (with the exception of #2667), and most of the
> documentation work is now done. I'm thinking of cutting the branch
> after the next pretest, so that some of the pent-up patches can start
> being applied. I have not, however, discussed this in detail with
> Stefan yet. If you like, please feel free to weigh in with opinions
> and/or concerns about the release process.
I've just noticed that the subject issure is not yet
settled. I think this is not a serious one but the attached
patch to startup.el is simple and it helps people identify a
fontset problem earlier.
---
Kenichi Handa
address@hidden
In article <address@hidden>, Kenichi Handa <address@hidden> writes:
> 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
> address@hidden
> --- 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.
- Pretest next week, Chong Yidong, 2009/05/14
- How to show *Warnings* buffer at startup time? [Re: Pretest next week],
Kenichi Handa <=