Mercurial > emacs

changeset 31451:0f9e55c33cc5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(frame-set-background-mode): Use frame-parameter instead of frame-parameters.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 07 Sep 2000 11:39:31 +0000
parents 82556406aa45
children aafc28756ab2
files lisp/faces.el
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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