(wl-demo): Don't pass by the XEmacs routine when window system is not used.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 56c4d93..acf42e4 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-05  Katsumi Yamaoka    <yamaoka@jpl.org>
+
+       * wl-demo.el (wl-demo): Don't pass by the XEmacs routine when
+       window system is not used.
+
 2000-10-04  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-vars.el (wl-summary-pick-field-default): Added `Last', `First' and

diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index adea053..9263262 100644 (file)
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -188,12 +188,13 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'."
                        (default-line-spacing 0))
                    (get-buffer-create "*WL Demo*"))))
     (switch-to-buffer demo-buf)
-    (cond ((and (featurep 'xemacs) (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))
+    (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)))
          ((and (> emacs-major-version 20) (display-graphic-p))
           (make-local-hook 'kill-buffer-hook)
           (let* ((frame (selected-frame))