(frame-set-background-mode): Use frame-parameter

instead of frame-parameters.

diff --git a/lisp/faces.el b/lisp/faces.el
index d4c27ffb0c382b4bd5592dff26698122eccfdfd9..92578c73061163915ba98442485172805a77488c 100644 (file)
--- 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