From: ueno <ueno>
Date: Fri, 15 Feb 2002 01:00:24 +0000 (+0000)
Subject: * wl-demo.el (wl-demo-insert-image): Don't touch the specifiers
X-Git-Tag: wl-2_9_7~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2bcb8c45f779b19f1a1f5215a56661d0fecbe3b1;p=elisp%2Fwanderlust.git

* wl-demo.el (wl-demo-insert-image): Don't touch the specifiers
related to scrollbar support, if there is no such a feature
compiled in.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index dbeb886..d5ddc29 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-02-15  Daiki Ueno  <ueno@unixuser.org>
+
+	* wl-demo.el (wl-demo-insert-image): Don't touch the specifiers
+	related to scrollbar support, if there is no such a feature
+	compiled in.
+
 2002-02-11  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-message.el (wl-message-buffer-prefetch-next): Don't call
diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 04f5e36..3e06c69 100644
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -144,8 +144,9 @@ Return a number of lines that an image occupies in the buffer."
       (when (boundp 'default-gutter-visible-p)
 	(set-specifier (symbol-value 'default-gutter-visible-p)
 		       nil (current-buffer)))
-      (set-specifier (symbol-value 'scrollbar-height) 0 (current-buffer))
-      (set-specifier (symbol-value 'scrollbar-width) 0 (current-buffer)))
+      (when (featurep 'scrollbar)
+	(set-specifier (symbol-value 'scrollbar-height) 0 (current-buffer))
+	(set-specifier (symbol-value 'scrollbar-width) 0 (current-buffer))))
     (if (and file
 	     (if (and wl-icon-directory
 		      (file-directory-p wl-icon-directory))