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