bug#52493: 29.0.50; Setting Inconsolata up in init.el makes default face rendered wrong

[martin rudalics <rudalics@gmx.at>]

[-- Attachment #1: Type: text/plain, Size: 1162 bytes --]

 > Initially its contents are:
 >
 > xg_wm_set_size_hint .. line_height .. 36 .. base_height .. 43 .. height_inc .. 18
 > xg_wm_set_size_hint .. line_height .. 36 .. base_height .. 84 .. height_inc .. 18
 >
 > but after I eval the above (one or many times, doesn't matter), it contains:
 >
 > xg_wm_set_size_hint .. line_height .. 36 .. base_height .. 43 .. height_inc .. 18
 > xg_wm_set_size_hint .. line_height .. 36 .. base_height .. 84 .. height_inc .. 18
 > xg_wm_set_size_hint .. line_height .. 45 .. base_height .. 88 .. height_inc .. 22
 > xg_wm_set_size_hint .. line_height .. 37 .. base_height .. 84 .. height_inc .. 18
 >
 > Its contents are also no different at that "special" height where the frame stops resizing. Just in case that's important.

Thanks.  Please with the new patch attached eval in *scratch* the first
form

(defun foo-set-face-attribute ()
   (foo-it "set-face-attribute")
   (set-face-attribute 'default nil :height 110 :family "InconsolataLGC"))

(foo-set-face-attribute)

and then eval the last form a couple of times.  This should help us to
discern whether and how 'set-face-attribute' has an effect on the size
hints.

martin

[-- Attachment #2: Gutov.diff --]
[-- Type: text/x-patch, Size: 2302 bytes --]

diff --git a/lisp/window.el b/lisp/window.el
index a11293d372..3d064e12d7 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -10596,6 +10596,17 @@ window-prefix-map
   "0" #'delete-windows-on)
 (define-key ctl-x-map "w" window-prefix-map)
 
+(defun foo-it (&rest rest)
+  (with-current-buffer (get-buffer-create "*foo*")
+    (goto-char (point-max))
+    (when rest
+      (insert (format "%s" (car rest)))
+      (setq rest (cdr rest))
+      (while rest
+	(insert (format " .. %s" (car rest)))
+	(setq rest (cdr rest)))
+      (insert "\n"))))
+
 (provide 'window)
 
 ;;; window.el ends here
diff --git a/src/frame.c b/src/frame.c
index b57b296be5..3fba03d61a 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -906,6 +906,10 @@ adjust_frame_size (struct frame *f, int new_text_width, int new_text_height,
 
   unblock_input ();
 
+  call5 (Qfoo_it, intern ("adjust_frame_size"),
+	 intern ("pixel_height"), make_fixnum (FRAME_PIXEL_HEIGHT (f)),
+	 intern ("text_height"), make_fixnum (FRAME_TEXT_HEIGHT (f)));
+
 #ifdef HAVE_WINDOW_SYSTEM
   {
     /* Adjust size of F's child frames.  */
diff --git a/src/gtkutil.c b/src/gtkutil.c
index a6bba096a4..a4bd34c142 100644
--- a/src/gtkutil.c
+++ b/src/gtkutil.c
@@ -2028,6 +2028,10 @@ xg_wm_set_size_hint (struct frame *f, long int flags, bool user_position)
 		 &f->output_data.xp->size_hints,
 		 sizeof (size_hints)) != 0)
     {
+      call7 (Qfoo_it, intern ("xg_wm_set_size_hint"),
+	     intern ("line_height"), make_fixnum (FRAME_LINE_HEIGHT (f)),
+	     intern ("base_height"), make_fixnum (size_hints.base_height),
+	     intern ("height_inc"), make_fixnum (size_hints.height_inc));
       block_input ();
       gtk_window_set_geometry_hints (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)),
                                      NULL, &size_hints, hint_flags);
diff --git a/src/window.c b/src/window.c
index f116b9a9d7..c090f29461 100644
--- a/src/window.c
+++ b/src/window.c
@@ -8394,6 +8394,7 @@ syms_of_window (void)
   DEFSYM (Qheader_line_format, "header-line-format");
   DEFSYM (Qtab_line_format, "tab-line-format");
   DEFSYM (Qno_other_window, "no-other-window");
+  DEFSYM (Qfoo_it, "foo-it");
 
   DEFVAR_LISP ("temp-buffer-show-function", Vtemp_buffer_show_function,
 	       doc: /* Non-nil means call as function to display a help buffer.