Commit a367641f authored by Richard M. Stallman's avatar Richard M. Stallman

(x_set_font): Funcall Qface_set_after_frame_default.

(Qface_set_after_frame_default): New variable.
(syms_of_xfns): Initialize and staticpro it.
parent 4d3f5d9a
......@@ -211,6 +211,7 @@ extern Lisp_Object Qunsplittable, Qmenu_bar_lines, Qbuffer_predicate, Qtitle;
extern Lisp_Object Vwindow_system_version;
Lisp_Object Qface_set_after_frame_default;
/* Error if we are not connected to X. */
void
......@@ -1592,6 +1593,7 @@ x_set_font (f, arg, oldval)
{
Lisp_Object result;
Lisp_Object fontset_name;
Lisp_Object frame;
CHECK_STRING (arg, 1);
......@@ -1614,6 +1616,9 @@ x_set_font (f, arg, oldval)
}
else
abort ();
XSETFRAME (frame, f);
call1 (Qface_set_after_frame_default, frame);
}
void
......@@ -5251,6 +5256,9 @@ syms_of_xfns ()
staticpro (&Qdisplay);
/* This is the end of symbol initialization. */
Qface_set_after_frame_default = intern ("face-set-after-frame-default");
staticpro (&Qface_set_after_frame_default);
Fput (Qundefined_color, Qerror_conditions,
Fcons (Qundefined_color, Fcons (Qerror, Qnil)));
Fput (Qundefined_color, Qerror_message,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment