From: yamaoka <yamaoka>
Date: Tue, 4 Jul 2000 08:51:18 +0000 (+0000)
Subject: (wl-demo): Don't use `selected-frame' redundantly.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a59e7933e52fd52484fd7d8daed5004d70512d7b;p=elisp%2Fwanderlust.git

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

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    <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
--- 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))))