From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 5 Jul 1997 08:26:04 +0000 (+0000)
Subject: (x_set_font): Funcall Qface_set_after_frame_default.
X-Git-Tag: emacs-20.1~1315
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a367641fe02367ec7d90caeeec2d87427b3135f2;p=emacs.git

(x_set_font): Funcall Qface_set_after_frame_default.
(Qface_set_after_frame_default): New variable.
(syms_of_xfns): Initialize and staticpro it.
---

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,