From: yamaoka <yamaoka>
Date: Tue, 20 Feb 2001 22:28:36 +0000 (+0000)
Subject: * wl-demo.el (wl-demo-image-type-alist): Use ' instead of `.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8156f2bab3e1e1f3da7ca06806d51110df20395b;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 485ffdd..28a42de 100644
--- 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
--- 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.