From 18f39d0e2073ecf318054c186da69bf6f3b8fea8 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 13 Sep 1999 11:13:31 +0000 Subject: [PATCH] (Ffont_info): Change for Lisp_Object selected_frame. (Ffontset_info): DItto. --- src/fontset.c | 18 ++++++------------ 1 file changed, 6 insertions(+), 12 deletions(-) diff --git a/src/fontset.c b/src/fontset.c index 876e0924e4a..2a73ab2ccdc 100644 --- a/src/fontset.c +++ b/src/fontset.c @@ -709,12 +709,9 @@ If the named font is not yet loaded, return nil.") CHECK_STRING (name, 0); if (NILP (frame)) - f = selected_frame; - else - { - CHECK_LIVE_FRAME (frame, 1); - f = XFRAME (frame); - } + frame = selected_frame; + CHECK_LIVE_FRAME (frame, 1); + f = XFRAME (frame); if (!query_font_func) error ("Font query function is not supported"); @@ -761,12 +758,9 @@ loading failed.") CHECK_STRING(name, 0); if (NILP (frame)) - f = selected_frame; - else - { - CHECK_LIVE_FRAME (frame, 1); - f = XFRAME (frame); - } + frame = selected_frame; + CHECK_LIVE_FRAME (frame, 1); + f = XFRAME (frame); fontset = fs_query_fontset (f, XSTRING (name)->data); if (fontset < 0) -- 2.39.5