update redisplay_interface.

Author: Yuuki Harano

src/pgtkfns.c

@@ -991,8 +991,8 @@ x_decode_color (struct frame *f, Lisp_Object color_name, int mono_color)
   signal_error ("Undefined color", color_name);
 }
 
-static void
-x_default_font_parameter (struct frame *f, Lisp_Object parms)
+void
+pgtk_default_font_parameter (struct frame *f, Lisp_Object parms)
 {
   struct pgtk_display_info *dpyinfo = FRAME_DISPLAY_INFO (f);
   Lisp_Object font_param = gui_display_get_arg (dpyinfo, parms, Qfont, NULL, NULL,
@@ -1262,7 +1262,7 @@ This function is an internal primitive--use `make-frame' instead.  */)
 
   /* Extract the window parameters from the supplied values
      that are needed to determine window geometry.  */
-  x_default_font_parameter (f, parms);
+  pgtk_default_font_parameter (f, parms);
   if (!FRAME_FONT (f))
     {
       delete_frame (frame, Qnoelisp);

src/pgtkterm.c

@@ -3326,7 +3326,8 @@ static struct redisplay_interface pgtk_redisplay_interface =
   pgtk_draw_window_divider,
   NULL, // pgtk_shift_glyphs_for_insert,
   pgtk_show_hourglass,
-  pgtk_hide_hourglass
+  pgtk_hide_hourglass,
+  pgtk_default_font_parameter,
 };
 
 static void

src/pgtkterm.h

@@ -615,6 +615,8 @@ extern void x_change_tab_bar_height (struct frame *, int);
 
 extern struct pgtk_display_info *check_pgtk_display_info (Lisp_Object object);
 
+extern void pgtk_default_font_parameter (struct frame *f, Lisp_Object parms);
+
 extern void pgtk_enqueue_string(struct frame *f, gchar *str);
 extern void pgtk_enqueue_preedit(struct frame *f, Lisp_Object image_data);
 extern void pgtk_im_focus_in(struct frame *f);