# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 968326771 0
# Node ID 0f9e55c33cc59970c0cc057fe36addd287a1d320
# Parent  82556406aa4509b552212f5f66cd885777b91785
(frame-set-background-mode): Use frame-parameter
instead of frame-parameters.

diff -r 82556406aa45 -r 0f9e55c33cc5 lisp/faces.el
--- a/lisp/faces.el	Thu Sep 07 11:39:07 2000 +0000
+++ b/lisp/faces.el	Thu Sep 07 11:39:31 2000 +0000
@@ -1302,7 +1302,6 @@
   (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 @@
 			(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