From 2bcb8c45f779b19f1a1f5215a56661d0fecbe3b1 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 15 Feb 2002 01:00:24 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 6 ++++++ wl/wl-demo.el | 5 +++-- 2 files changed, 9 insertions(+), 2 deletions(-) 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 + + * 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 * 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)) -- 1.7.10.4