* 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 (file)
--- 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 (file)
--- 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)))))