comparison src/frame.c @ 90614:8dd8c8286063

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 460-475) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 145-152) - Merge from emacs--devo--0 - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-118

90613:7a2fdfcc7f71

Lisp_Object Qfullscreen, Qfullwidth, Qfullheight, Qfullboth;
#ifdef USE_FONT_BACKEND
Lisp_Object Qfont_backend;
#endif	/* USE_FONT_BACKEND */

Lisp_Object Qface_set_after_frame_default;


Lisp_Object Vterminal_frame;
Lisp_Object Vdefault_frame_alist;

	  || EQ (prop, Qbackground_color)
	  || EQ (prop, Qfont)
          || EQ (prop, Qfullscreen))
	{
	  register Lisp_Object param_index, old_value;

	  old_value = get_frame_param (f, prop);
 	  fullscreen_is_being_set |= EQ (prop, Qfullscreen);

	  if (NILP (Fequal (val, old_value)))
	    {
	      store_frame_param (f, prop, val);

	      param_index = Fget (prop, Qx_frame_parameter);
	      if (NATNUMP (param_index)
		  && (XFASTINT (param_index)
		      < sizeof (frame_parms)/sizeof (frame_parms[0]))
		  && rif->frame_parm_handlers[XINT (param_index)])
		(*(rif->frame_parm_handlers[XINT (param_index)])) (f, val, old_value);
	    }
	}
    }

  /* Now process them in reverse of specified order.  */

  staticpro (&Qtty_color_mode);

  Qface_set_after_frame_default = intern ("face-set-after-frame-default");
  staticpro (&Qface_set_after_frame_default);

  Qfullwidth = intern ("fullwidth");
  staticpro (&Qfullwidth);
  Qfullheight = intern ("fullheight");
  staticpro (&Qfullheight);
  Qfullboth = intern ("fullboth");

90614:8dd8c8286063

Lisp_Object Qfullscreen, Qfullwidth, Qfullheight, Qfullboth;
#ifdef USE_FONT_BACKEND
Lisp_Object Qfont_backend;
#endif	/* USE_FONT_BACKEND */

Lisp_Object Qinhibit_face_set_after_frame_default;
Lisp_Object Qface_set_after_frame_default;


Lisp_Object Vterminal_frame;
Lisp_Object Vdefault_frame_alist;

	  || EQ (prop, Qbackground_color)
	  || EQ (prop, Qfont)
          || EQ (prop, Qfullscreen))
	{
	  register Lisp_Object param_index, old_value;
	  int count = SPECPDL_INDEX ();

	  old_value = get_frame_param (f, prop);
 	  fullscreen_is_being_set |= EQ (prop, Qfullscreen);

	  if (NILP (Fequal (val, old_value)))
	    {
	      /* For :font attributes, the frame_parm_handler
		 x_set_font calls `face-set-after-frame-default'.
		 Unless we bind inhibit-face-set-after-frame-default
		 here, this would reset the :font attribute that we
		 just applied to the default value for new faces.  */
	      specbind (Qinhibit_face_set_after_frame_default, Qt);

	      store_frame_param (f, prop, val);

	      param_index = Fget (prop, Qx_frame_parameter);
	      if (NATNUMP (param_index)
		  && (XFASTINT (param_index)
		      < sizeof (frame_parms)/sizeof (frame_parms[0]))
		  && rif->frame_parm_handlers[XINT (param_index)])
		(*(rif->frame_parm_handlers[XINT (param_index)])) (f, val, old_value);

	      unbind_to (count, Qnil);
	    }
	}
    }

  /* Now process them in reverse of specified order.  */

  staticpro (&Qtty_color_mode);

  Qface_set_after_frame_default = intern ("face-set-after-frame-default");
  staticpro (&Qface_set_after_frame_default);

  Qinhibit_face_set_after_frame_default
    = intern ("inhibit-face-set-after-frame-default");
  staticpro (&Qinhibit_face_set_after_frame_default);

  Qfullwidth = intern ("fullwidth");
  staticpro (&Qfullwidth);
  Qfullheight = intern ("fullheight");
  staticpro (&Qfullheight);
  Qfullboth = intern ("fullboth");