From: "Jan Djärv" <jan.h.d@swipnet.se>
To: Stephen Berman <Stephen.Berman@gmx.net>
Cc: 10178@debbugs.gnu.org
Subject: bug#10178: 24.0.92; emacs -q frame too short for fancy splash image
Date: Sun, 4 Dec 2011 14:42:56 +0100 [thread overview]
Message-ID: <AA3BD7FC-3F07-4B20-82E7-37C2E814F26B@swipnet.se> (raw)
In-Reply-To: <8762i0wuh9.fsf@escher.fritz.box>
1 dec 2011 kl. 09:45 skrev Stephen Berman:
> Starting with -q does not show the fancy splash image; `M-:
> (window-height)' returns 34. If I start with -q -geometry 80x36 `M-:
> (window-height)' returns 35 and the fancy splash image appears (though
> with this height the last line of the splash screen is partially
> truncated). I think I started seeing this behavior during the last
> pretest (24.0.91), but it might have been earlier.
>
I see in startup.el:
(defun use-fancy-splash-screens-p ()
"Return t if fancy splash screens should be used."
(when (and (display-graphic-p)
(or (and (display-color-p)
(image-type-available-p 'xpm))
(image-type-available-p 'pbm)))
(let ((frame (fancy-splash-frame)))
(when frame
(let* ((img (create-image (or fancy-splash-image
(if (and (display-color-p)
(image-type-available-p 'xpm))
"splash.xpm" "splash.pbm"))))
(image-height (and img (cdr (image-size img nil frame))))
;; We test frame-height so that, if the frame is split
;; by displaying a warning, that doesn't cause the normal
;; splash screen to be used.
(frame-height (1- (frame-height frame))))
(> frame-height (+ image-height 19)))))))
On my system, image-height becomes 14.466666666666667, so frame-height must be larger than 33.4666....
34 should fit. Is image-size something else on your system?
Jan D.
next prev parent reply other threads:[~2011-12-04 13:42 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-12-01 8:45 bug#10178: 24.0.92; emacs -q frame too short for fancy splash image Stephen Berman
2011-12-04 13:42 ` Jan Djärv [this message]
2011-12-04 14:09 ` Stephen Berman
2011-12-07 16:47 ` Juri Linkov
2011-12-07 21:54 ` Stephen Berman
2011-12-10 13:13 ` Jan Djärv
2011-12-10 15:13 ` Stephen Berman
2011-12-11 12:00 ` Jan Djärv
2011-12-11 16:40 ` Stephen Berman
2011-12-15 21:27 ` Juri Linkov
2011-12-16 6:29 ` Jan Djärv
2012-01-07 9:15 ` Chong Yidong
2019-09-26 17:35 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=AA3BD7FC-3F07-4B20-82E7-37C2E814F26B@swipnet.se \
--to=jan.h.d@swipnet.se \
--cc=10178@debbugs.gnu.org \
--cc=Stephen.Berman@gmx.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.