mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 12:40:49 -08:00
Code Issues Projects Releases Wiki Activity

(x_set_font): Funcall Qface_set_after_frame_default.

Browse source 
(Qface_set_after_frame_default): New variable.
(syms_of_xfns): Initialize and staticpro it.
This commit is contained in:
Richard M. Stallman 1997-07-05 08:26:04 +00:00
parent 4d3f5d9ab7
commit a367641fe0
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/xfns.c
View file

@ -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,