Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
51e8cfdd
Commit
51e8cfdd
authored
Apr 03, 2001
by
Gerd Moellmann
Browse files
(fancy-splash-head): Use splash8.xpm for color
depth 8.
parent
de073ce3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
9 deletions
+11
-9
lisp/startup.el
lisp/startup.el
+11
-9
No files found.
lisp/startup.el
View file @
51e8cfdd
...
...
@@ -1074,10 +1074,16 @@ where FACE is a valid face specification, as it can be used with
(defun fancy-splash-head ()
"
Insert
the
head
part
of
the
splash
screen
into
the
current
buffer.
"
(let* ((img (create-image (or fancy-splash-image
(if (and (display-color-p)
(image-type-available-p 'xpm))
"
splash.xpm
" "
splash.pbm
"))))
(let* ((image-file (cond ((stringp fancy-splash-image)
fancy-splash-image)
((and (display-color-p)
(image-type-available-p 'xpm))
(if (and (fboundp 'x-display-planes)
(= (funcall 'x-display-planes) 8))
"
splash8.xpm
"
"
splash.xpm
"))
(t "
splash.pbm
")))
(img (create-image image-file))
(image-width (and img (car (image-size img))))
(window-width (window-width (selected-window))))
(when img
...
...
@@ -1144,9 +1150,7 @@ where FACE is a valid face specification, as it can be used with
(defun fancy-splash-default-action ()
"
Default
action
for
events
in
the
splash
screen
buffer.
"
(interactive)
(setq hansi last-nonmenu-event)
(push last-command-event unread-command-events)
(setq unread (copy-sequence unread-command-events))
(throw 'exit nil))
...
...
@@ -1177,9 +1181,7 @@ where FACE is a valid face specification, as it can be used with
(recursive-edit))
(cancel-timer timer)
(setq display-hourglass old-hourglass)
(kill-buffer splash-buffer)
(setq hansi2 last-nonmenu-event)
))))
(kill-buffer splash-buffer)))))
(defun use-fancy-splash-screens-p ()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment