From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 20 Feb 2007 01:56:11 +0000 (+0000)
Subject: * frame.c (x_set_screen_gamma): Apply gamma value to the frame's bgcolor.
X-Git-Tag: emacs-pretest-22.0.94~61
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05fc2ef7b290c9c85d6a15e378f1ab52a0322cd9;p=emacs.git

* frame.c (x_set_screen_gamma): Apply gamma value to the frame's bgcolor.
---

diff --git a/src/frame.c b/src/frame.c
index 8580ef79ad6..5990b9e0717 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -3057,18 +3057,30 @@ x_set_screen_gamma (f, new_value, old_value)
      struct frame *f;
      Lisp_Object new_value, old_value;
 {
+  Lisp_Object bgcolor;
+
   if (NILP (new_value))
     f->gamma = 0;
   else if (NUMBERP (new_value) && XFLOATINT (new_value) > 0)
-    {
-      Fclear_face_cache (Qnil);
-      /* The value 0.4545 is the normal viewing gamma.  */
-      f->gamma = 1.0 / (0.4545 * XFLOATINT (new_value));
-    }
+    /* The value 0.4545 is the normal viewing gamma.  */
+    f->gamma = 1.0 / (0.4545 * XFLOATINT (new_value));
   else
     signal_error ("Invalid screen-gamma", new_value);
 
-  clear_face_cache (0);
+  /* Apply the new gamma value to the frame background.  */
+  bgcolor = Fassq (Qbackground_color, f->param_alist);
+  if (CONSP (bgcolor) && (bgcolor = XCDR (bgcolor), STRINGP (bgcolor)))
+    {
+      Lisp_Object index = Fget (Qbackground_color, Qx_frame_parameter);
+      if (NATNUMP (index)
+	  && (XFASTINT (index)
+	      < sizeof (frame_parms)/sizeof (frame_parms[0]))
+	  && rif->frame_parm_handlers[XFASTINT (index)])
+	(*(rif->frame_parm_handlers[XFASTINT (index)]))
+	  (f, bgcolor, Qnil);
+    }
+
+  Fclear_face_cache (Qnil);
 }