From 40348caf2420d16a66d9d64af93dbc2f8af70d22 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 5 Oct 2000 11:46:43 +0000 Subject: [PATCH] (wl-demo): Replace `when' with `if' in last change. Never mind. ^^;; --- wl/wl-demo.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/wl/wl-demo.el b/wl/wl-demo.el index 9263262..1bb3d27 100644 --- a/wl/wl-demo.el +++ b/wl/wl-demo.el @@ -189,12 +189,13 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'." (get-buffer-create "*WL Demo*")))) (switch-to-buffer 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))) + (if (device-on-window-system-p) + (progn + (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