Mercurial > emacs

changeset 37166:aa543a0e2c40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fancy-splash-head): Use splash8.xpm for color depth 8.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 03 Apr 2001 13:51:41 +0000
parents 32679fe3e196
children c7097f2e0cde
files lisp/startup.el
diffstat 1 files changed, 11 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Tue Apr 03 13:37:23 2001 +0000
+++ b/lisp/startup.el	Tue Apr 03 13:51:41 2001 +0000
@@ -1074,10 +1074,16 @@
 
 (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 @@
 (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 @@
 	    (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 ()