From a59e7933e52fd52484fd7d8daed5004d70512d7b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 4 Jul 2000 08:51:18 +0000 Subject: [PATCH] (wl-demo): Don't use `selected-frame' redundantly. --- wl/ChangeLog | 3 ++- wl/wl-demo.el | 3 +-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index f84a3b1..2decab8 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,6 +1,7 @@ 2000-07-04 Katsumi Yamaoka - * wl-demo.el (wl-demo): Make `kill-buffer-hook' buffer-local. + * wl-demo.el (wl-demo): Make `kill-buffer-hook' buffer-local; don't + use `selected-frame' redundantly. 2000-07-04 Kenichi OKADA diff --git a/wl/wl-demo.el b/wl/wl-demo.el index e34b332..573ed3b 100644 --- a/wl/wl-demo.el +++ b/wl/wl-demo.el @@ -211,8 +211,7 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'." (set-face-background 'fringe (eval (, fbg)) (, frame)))))) nil t) - (modify-frame-parameters (selected-frame) - '((vertical-scroll-bars))) + (modify-frame-parameters frame '((vertical-scroll-bars))) (if (find-face 'fringe) (let* ((unspecified nil) (bg (eval (face-background 'default)))) -- 1.7.10.4