feature/pgtk 992ef48 041/100: update redisplay_interface.

[Yuuki Harano]

branch: feature/pgtk
commit 992ef483006aad6c85138e901768fa9e1ef59784
Author: Yuuki Harano <masm+github@masm11.me>
Commit: Jeff Walsh <jeff.walsh@drtusers-MacBook-Pro.local>

    update redisplay_interface.
    
    * src/pgtkfns.c (Fx_create_frame, pgtk_default_font_parameter):
    
    * src/pgtkterm.c (pgtk_redisplay_interface):
    
    * src/pgtkterm.h:
---
 src/pgtkfns.c  | 6 +++---
 src/pgtkterm.c | 3 ++-
 src/pgtkterm.h | 2 ++
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/pgtkfns.c b/src/pgtkfns.c
index 2525547..2c8f73e 100644
--- a/src/pgtkfns.c
+++ b/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);
diff --git a/src/pgtkterm.c b/src/pgtkterm.c
index 92ad1bc..fbfc295 100644
--- a/src/pgtkterm.c
+++ b/src/pgtkterm.c
@@ -3328,7 +3328,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
diff --git a/src/pgtkterm.h b/src/pgtkterm.h
index d441e16..7bc0f0d 100644
--- a/src/pgtkterm.h
+++ b/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);