* wl-demo.el (wl-demo-insert-image): Fixed the face name for xbm.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d5a3317..0a5990a 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-11  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * wl-demo.el (wl-demo-insert-image): Fixed the face name for xbm.
+
 2001-12-11  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-acap.el (wl-acap-cache-filename): New variable.

diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 19d26d6..078ca16 100644 (file)
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -188,8 +188,8 @@ Return a number of lines that an image occupies in the buffer."
                       height (cdr width)
                       width (car width))
                 (when (eq 'xbm image-type)
-                  (let ((bg (face-background 'wl-highlight-demo-face))
-                        (fg (face-foreground 'wl-highlight-demo-face)))
+                  (let ((bg (face-background 'wl-highlight-logo-face))
+                        (fg (face-foreground 'wl-highlight-logo-face)))
                     (when (stringp bg)
                       (plist-put (cdr image) ':background bg))
                     (when (stringp fg)