Re: New look for Emacs-23.0

[Stefan Monnier]

> -                          ((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")))
> +                          ((display-color-p)
> +                                (cond ((image-type-available-p 'svg)
> +                                                 "splash.svg")
> +                                                ((image-type-available-p 
> 'png)
> +                                                 "splash.png")
> +                                                ((image-type-available-p 
> 'xpm)
> +                                                 (if (and (fboundp
> 'x-display-planes)
> +
>    (= (funcall 'x-display-planes) 8))
> +                                                               "splash8.xpm"
> +                                                        "splash.xpm"))))
> +                                       (t "splash.pbm")))

This code still needs to be tuned to correctly pay attention to the
color depth: testing display-planes only when we don't support SVG and
PNG doesn't make any sense.


        Stefan