(wl-demo): Don't use `selected-frame' redundantly.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f84a3b1..2decab8 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,6 +1,7 @@
 2000-07-04  Katsumi Yamaoka    <yamaoka@jpl.org>
 
-       * 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      <okada@opaopa.org>
 

diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index e34b332..573ed3b 100644 (file)
--- 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))))