diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-05 08:26:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-05 08:26:04 +0000 |
| commit | a367641fe02367ec7d90caeeec2d87427b3135f2 (patch) | |
| tree | bd4c8d235a73350a694b59993aac35373dc2de5e /src | |
| parent | 4d3f5d9ab7e23f62c40d98f0b837a41a3a9273bb (diff) | |
| download | emacs-a367641fe02367ec7d90caeeec2d87427b3135f2.tar.gz | |
(x_set_font): Funcall Qface_set_after_frame_default.
(Qface_set_after_frame_default): New variable.
(syms_of_xfns): Initialize and staticpro it.
Diffstat (limited to 'src')
| -rw-r--r-- | src/xfns.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/xfns.c b/src/xfns.c index cff116dbc1d..4d624b07097 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -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, |