From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 9 Apr 1994 06:33:49 +0000 (+0000)
Subject: (frame_update_line_height): New function.
X-Git-Tag: emacs-19.34~9085
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=729425b1068937c40abca197f150faca03e91100;p=emacs.git

(frame_update_line_height): New function.
(Fset_face_attribute_internal): Call that.
---

diff --git a/src/xfaces.c b/src/xfaces.c
index 707991824b8..b96ace2abf2 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -659,6 +659,31 @@ same_size_fonts (font1, font2)
 	  && bounds1->descent == bounds2->descent);  */
 }
 
+/* Update the line_height of frame F according to the biggest font in
+   any face, and resize the frame if line_height changes.  */
+
+void
+frame_update_line_height (f)
+     FRAME_PTR f;
+{
+  int i;
+  int biggest = FONT_HEIGHT (f->display.x->font);
+
+  for (i = 0; i < f->display.x->n_param_faces; i++)
+    if (f->display.x->param_faces[i]->font != (XFontStruct *) FACE_DEFAULT)
+      {
+	int height = FONT_HEIGHT (f->display.x->param_faces[i]->font);
+	if (height > biggest)
+	  biggest = height;
+      }
+
+  if (biggest == f->display.x->line_height)
+    return;
+
+  f->display.x->line_height = biggest;
+  x_set_window_size (f, 0, f->width, f->height);
+}
+
 /* Modify face TO by copying from FROM all properties which have
    nondefault settings.  */
 static void 
@@ -967,6 +992,7 @@ DEFUN ("set-face-attribute-internal", Fset_face_attribute_internal,
       if (face->font != f->display.x->font)
 	unload_font (f, face->font);
       face->font = font;
+      frame_update_line_height (f);
     }
   else if (EQ (attr_name, intern ("foreground")))
     {