From: yoichi <yoichi>
Date: Thu, 15 Jul 2004 16:02:14 +0000 (+0000)
Subject: * wl-demo.el (wl-demo-setup-properties): Avoid error for XEmacs on tty
X-Git-Tag: wl-2_11_31~63
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=534966b653181efd9d1fcef8b1bcd68b1dea7e70;p=elisp%2Fwanderlust.git

* wl-demo.el (wl-demo-setup-properties): Avoid error for XEmacs on tty
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7e1d86b..17b081d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-16  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-demo.el (wl-demo-setup-properties): Avoid error for XEmacs on
+	tty.
+
 2004-07-12  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-action.el (wl-summary-exec): Print failure count.
diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 0e4849e..a7a2056 100644
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -301,7 +301,8 @@ Return a number of lines that an image occupies in the buffer."
 				  (list ':background bg))
 				(when (stringp fg)
 				  (list ':foreground fg))))))
-   ((featurep 'xemacs)
+   ((and (featurep 'xemacs)
+	 (face-background-name 'wl-highlight-demo-face))
     (set-face-background 'default
 			 (face-background-name 'wl-highlight-demo-face)
 			 (current-buffer)))))