From c199b9872e2594b4ed1bee341e5b76095f7b5ba5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 16 Jun 2000 02:37:05 +0000 Subject: [PATCH] (wl-demo-display-logo): Made it can be a image type. --- wl/wl-vars.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/wl/wl-vars.el b/wl/wl-vars.el index 6f9bb73..a5688ce 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -1896,12 +1896,18 @@ This variable can also be a regex. " :group 'wl-pref) (defcustom wl-demo-display-logo (or (and (featurep 'xemacs) - (featurep 'xpm)) + (if (featurep 'xpm) + 'xpm 'xbm)) (and (module-installed-p 'image) - (image-type-available-p 'xpm)) - (module-installed-p 'bitmap)) - "If non-nil, display image (or bitmap) logo in th Wanderlust opening demo." - :type 'boolean + (if (image-type-available-p 'xpm) + 'xpm 'xbm)) + (and (module-installed-p 'bitmap) + 'xbm)) + "If non-nil, show graphic logo in the startup screen. You can set it to +a symbol `xbm' to limit the image format to XBM even if XPM can be shown." + :type '(radio (const :tag "OFF" nil) + (const :tag "XBM (possibly BITMAP-MULE)" xbm) + (sexp :format "ON (any format)" :value t)) :group 'wl-pref) ;;; Internal variables -- 1.7.10.4