# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 937221211 0
# Node ID 99290b59352db8a831b87107d3ac194efefa455c
# Parent  7300ea0dd52cecb743436f8baccbd2d2eb1b7076
(Ffont_info): Change for Lisp_Object selected_frame.
(Ffontset_info): DItto.

diff -r 7300ea0dd52c -r 99290b59352d src/fontset.c
--- a/src/fontset.c	Mon Sep 13 11:13:29 1999 +0000
+++ b/src/fontset.c	Mon Sep 13 11:13:31 1999 +0000
@@ -709,12 +709,9 @@
 
   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 @@
 
   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)