From 9ebe6947aeed0d92ae7d3e634d4a384be744db24 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 21 Oct 1998 11:50:56 +0000 Subject: [PATCH] (Fx_list_fonts): Access frame parameters throught general macros. Don't call x_list_font directory, instead call a function set in list_fonts_func. --- src/x-list-font.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/x-list-font.c b/src/x-list-font.c index 077a33ef7d1..861a61dac81 100644 --- a/src/x-list-font.c +++ b/src/x-list-font.c @@ -25,7 +25,7 @@ the WIDTH times as wide as FACE on FRAME.") int size, cols; int maxnames; - check_x (); + (*check_window_system_func) (); CHECK_STRING (pattern, 0); if (!NILP (face)) CHECK_SYMBOL (face, 1); @@ -50,7 +50,7 @@ the WIDTH times as wide as FACE on FRAME.") CHECK_LIVE_FRAME (frame, 0); f = XFRAME (frame); } - if (! FRAME_X_P (f)) + if (! FRAME_WINDOW_P (f)) { /* Perhaps we have not yet created any frame. */ f = NULL; @@ -70,9 +70,9 @@ the WIDTH times as wide as FACE on FRAME.") if (face_id < 0 || face_id >= FRAME_N_PARAM_FACES (f) || FRAME_PARAM_FACES (f) [face_id] == 0 || FRAME_PARAM_FACES (f) [face_id]->font == (XFontStruct *) (~0)) - size = f->output_data.x->font->max_bounds.width; + size = FONT_WIDTH (FRAME_FONT (f)); else - size = FRAME_PARAM_FACES (f) [face_id]->font->max_bounds.width; + size = FONT_WIDTH (FRAME_PARAM_FACES (f) [face_id]->font); if (!NILP (width)) size *= XINT (width); @@ -81,7 +81,7 @@ the WIDTH times as wide as FACE on FRAME.") { Lisp_Object args[2]; - args[0] = x_list_fonts (f, pattern, size, maxnames); + args[0] = (*list_fonts_func) (f, pattern, size, maxnames); if (f == NULL) /* We don't have to check fontsets. */ return args[0]; -- 2.39.2