From 75429768654c30193fe77251aa75565a59cd2b84 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 7 Sep 2000 11:39:31 +0000 Subject: [PATCH] (frame-set-background-mode): Use frame-parameter instead of frame-parameters. --- lisp/faces.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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 -- 2.39.2