From 7ec9f8dbf889a1b582b5b449a1bb409fa24ed917 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 5 Oct 2000 11:35:44 +0000 Subject: [PATCH] (wl-demo): Don't pass by the XEmacs routine when window system is not used. --- wl/ChangeLog | 5 +++++ wl/wl-demo.el | 13 +++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) 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 + + * wl-demo.el (wl-demo): Don't pass by the XEmacs routine when + window system is not used. + 2000-10-04 Yuuichi Teranishi * 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)) -- 1.7.10.4