# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1171936571 0
# Node ID a235d0ff326b6b7d112beb58aebc35ff0e2977b2
# Parent  74b530027eb35b435a3603c6bc37caec4a351eee
* frame.c (x_set_screen_gamma): Apply gamma value to the frame's bgcolor.

diff -r 74b530027eb3 -r a235d0ff326b src/frame.c
--- a/src/frame.c	Tue Feb 20 01:56:02 2007 +0000
+++ b/src/frame.c	Tue Feb 20 01:56:11 2007 +0000
@@ -3057,18 +3057,30 @@
      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);
 }