* wl-demo.el (wl-demo-image-type-alist): Use ' instead of `.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 485ffdd..28a42de 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2001-02-20  Katsumi Yamaoka    <yamaoka@jpl.org>
 
+       * wl-demo.el (wl-demo-image-type-alist): Use ' instead of `.
+
+2001-02-20  Katsumi Yamaoka    <yamaoka@jpl.org>
+
        * wl-e21.el (wl-e21-setup-draft-toolbar): Don't refer to
        `wl-use-toolbar' nor `display-graphic-p'.
        (wl-e21-setup-message-toolbar): Ditto.

diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 5210f26..e846d66 100644 (file)
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -224,27 +224,27 @@ any conversions and evaluate FORMS there like `progn'."
 
 (eval-when-compile
   (defmacro wl-demo-image-type-alist ()
-    (` (append (if (and (get 'wl-logo-xpm 'width)
-                       (or (and (featurep 'xemacs)
-                                (featurep 'xpm)
-                                (device-on-window-system-p))
-                           (and wl-on-emacs21
-                                (display-graphic-p)
-                                (image-type-available-p 'xpm))))
-                  '(("xpm" . xpm)))
-              (if (and (get 'wl-logo-xbm 'width)
-                       (or (and (featurep 'xemacs)
-                                (device-on-window-system-p))
-                           (and wl-on-emacs21
-                                (display-graphic-p)
-                                (image-type-available-p 'xbm))))
-                  '(("xbm" . xbm)))
-              (if (and (get 'wl-logo-bitmap 'width)
-                       (not (featurep 'xemacs))
-                       window-system
-                       (featurep 'bitmap))
-                  '(("bitmap" . bitmap)))
-              '(("ascii"))))))
+    '(append (if (and (get 'wl-logo-xpm 'width)
+                     (or (and (featurep 'xemacs)
+                              (featurep 'xpm)
+                              (device-on-window-system-p))
+                         (and wl-on-emacs21
+                              (display-graphic-p)
+                              (image-type-available-p 'xpm))))
+                '(("xpm" . xpm)))
+            (if (and (get 'wl-logo-xbm 'width)
+                     (or (and (featurep 'xemacs)
+                              (device-on-window-system-p))
+                         (and wl-on-emacs21
+                              (display-graphic-p)
+                              (image-type-available-p 'xbm))))
+                '(("xbm" . xbm)))
+            (if (and (get 'wl-logo-bitmap 'width)
+                     (not (featurep 'xemacs))
+                     window-system
+                     (featurep 'bitmap))
+                '(("bitmap" . bitmap)))
+            '(("ascii")))))
 
 (defun wl-demo (&optional image-type)
   "Demo on the startup screen.