From: yamaoka <yamaoka>
Date: Thu, 5 Oct 2000 11:46:43 +0000 (+0000)
Subject: (wl-demo): Replace `when' with `if' in last change.  Never mind. ^^;;
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=40348caf2420d16a66d9d64af93dbc2f8af70d22;p=elisp%2Fwanderlust.git

(wl-demo): Replace `when' with `if' in last change.  Never mind. ^^;;
---

diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 9263262..1bb3d27 100644
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -189,12 +189,13 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'."
 		    (get-buffer-create "*WL Demo*"))))
     (switch-to-buffer demo-buf)
     (cond ((featurep 'xemacs)
-	   (when (device-on-window-system-p)
-	     (if (boundp 'default-gutter-visible-p)
-		 (set-specifier (symbol-value 'default-gutter-visible-p)
-				nil demo-buf))
-	     (set-specifier (symbol-value 'scrollbar-height) 0 demo-buf)
-	     (set-specifier (symbol-value 'scrollbar-width) 0 demo-buf)))
+	   (if (device-on-window-system-p)
+	       (progn
+		 (if (boundp 'default-gutter-visible-p)
+		     (set-specifier (symbol-value 'default-gutter-visible-p)
+				    nil demo-buf))
+		 (set-specifier (symbol-value 'scrollbar-height) 0 demo-buf)
+		 (set-specifier (symbol-value 'scrollbar-width) 0 demo-buf))))
 	  ((and (> emacs-major-version 20) (display-graphic-p))
 	   (make-local-hook 'kill-buffer-hook)
 	   (let* ((frame (selected-frame))