(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 (file)
--- 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))