X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/047bc928e5672963c11cca69e16a586ef570ef29..75429768654c30193fe77251aa75565a59cd2b84:/lisp/faces.el

diff --git a/lisp/faces.el b/lisp/faces.el
index d4c27ffb0c..92578c7306 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