From: yamaoka <yamaoka>
Date: Thu, 5 Oct 2000 11:35:44 +0000 (+0000)
Subject: (wl-demo): Don't pass by the XEmacs routine when window system is not used.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7ec9f8dbf889a1b582b5b449a1bb409fa24ed917;p=elisp%2Fwanderlust.git

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