Mercurial > emacs
changeset 18631:62bcc6aff013
(x_set_font): Funcall Qface_set_after_frame_default.
(Qface_set_after_frame_default): New variable.
(syms_of_xfns): Initialize and staticpro it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Jul 1997 08:26:04 +0000 |
| parents | 3e414b9da546 |
| children | 0e44be1e2051 |
| files | src/xfns.c |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xfns.c Sat Jul 05 08:23:34 1997 +0000 +++ b/src/xfns.c Sat Jul 05 08:26:04 1997 +0000 @@ -211,6 +211,7 @@ 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 @@ { Lisp_Object result; Lisp_Object fontset_name; + Lisp_Object frame; CHECK_STRING (arg, 1); @@ -1614,6 +1616,9 @@ } else abort (); + + XSETFRAME (frame, f); + call1 (Qface_set_after_frame_default, frame); } void @@ -5251,6 +5256,9 @@ 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,