From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 7 Sep 2000 11:39:31 +0000 (+0000)
Subject: (frame-set-background-mode): Use frame-parameter
X-Git-Tag: emacs-pretest-21.0.90~1737
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75429768654c30193fe77251aa75565a59cd2b84;p=emacs.git

(frame-set-background-mode): Use frame-parameter
instead of frame-parameters.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index d4c27ffb0c3..92578c73061 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1302,7 +1302,6 @@ this won't have the expected effect."
   (let* ((bg-resource
 	  (and window-system
 	       (x-get-resource ".backgroundMode" "BackgroundMode")))
-	 (params (frame-parameters frame))
 	 (bg-mode (cond (frame-background-mode)
 			((null window-system)
 			 ;; No way to determine this automatically (?).
@@ -1310,8 +1309,7 @@ this won't have the expected effect."
 			(bg-resource
 			 (intern (downcase bg-resource)))
 			((< (apply '+ (x-color-values
-				       (cdr (assq 'background-color
-						  params))
+				       (frame-parameter frame 'background-color)
 				       frame))
 			    ;; Just looking at the screen, colors whose
 			    ;; values add up to .6 of the white total