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

instead of frame-parameters.

1 files changed, 1 insertions, 3 deletions

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