comparison src/xfaces.c @ 34242:dd4e1abada68

(Finternal_set_lisp_face_attribute): If FRAME is `t', update `default-frame-alist' instead of setting no frame parameters.

34241:f52846f4d5bd

      ++windows_or_buffers_changed;
    }

#ifdef HAVE_WINDOW_SYSTEM

  if (!EQ (frame, Qt)
      && !UNSPECIFIEDP (value)
      && NILP (Fequal (old_value, value)))
    {
      Lisp_Object param;

      param = Qnil;

	}
      else if (EQ (face, Qmenu))
	++menu_face_change_count;

      if (!NILP (param))
	{
	  Lisp_Object cons;
	  cons = XCAR (Vparam_value_alist);
	  XCAR (cons) = param;
	  XCDR (cons) = value;
	  Fmodify_frame_parameters (frame, Vparam_value_alist);
	}
    }

#endif /* HAVE_WINDOW_SYSTEM */

  return face;

34242:dd4e1abada68

      ++windows_or_buffers_changed;
    }

#ifdef HAVE_WINDOW_SYSTEM

  if (!UNSPECIFIEDP (value)
      && NILP (Fequal (old_value, value)))
    {
      Lisp_Object param;

      param = Qnil;

	}
      else if (EQ (face, Qmenu))
	++menu_face_change_count;

      if (!NILP (param))
	if (EQ (frame, Qt))
	  /* Update `default-frame-alist', which is used for new frames.  */
	  {
	    store_in_alist (&Vdefault_frame_alist, param, value);
	  }
	else
	  /* Update the current frame's parameters.  */
	  {
	    Lisp_Object cons;
	    cons = XCAR (Vparam_value_alist);
	    XCAR (cons) = param;
	    XCDR (cons) = value;
	    Fmodify_frame_parameters (frame, Vparam_value_alist);
	  }
    }

#endif /* HAVE_WINDOW_SYSTEM */

  return face;