From c646f508665a8eb59fec59715538e54c48f99f7b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 7 Jul 2000 12:49:54 +0000 Subject: [PATCH] (wl-demo): Don't use `eval'. --- wl/ChangeLog | 4 ++++ wl/wl-demo.el | 10 +++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 733d12e..c0a5791 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2000-07-07 Katsumi Yamaoka + + * wl-demo.el (wl-demo): Don't use `eval'. + 2000-07-07 Kenichi OKADA * wl-summary.el (wl-summary-buffer-thread-modified): diff --git a/wl/wl-demo.el b/wl/wl-demo.el index 21f201f..690dca2 100644 --- a/wl/wl-demo.el +++ b/wl/wl-demo.el @@ -249,11 +249,11 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'." (set-extent-end-glyph (make-extent (point) (point)) image)) ((featurep 'image) (if (eq 'wl-logo-xbm logo) - (let* ((unspecified nil) - (bg (eval (face-background 'wl-highlight-logo-face))) - (fg (eval (face-foreground 'wl-highlight-logo-face)))) - (if bg (plist-put (cdr image) ':background bg)) - (if fg (plist-put (cdr image) ':foreground fg)))) + (progn + (plist-put (cdr image) ':background + (face-background 'wl-highlight-logo-face)) + (plist-put (cdr image) ':foreground + (face-foreground 'wl-highlight-logo-face)))) (setq rest (/ (- (* wh (frame-char-height)) lh 1) (frame-char-height))) (insert-char ?\ (max 0 (/ (- (* (frame-char-width) (1+ ww)) lw) -- 1.7.10.4