From 7fc9de26baa03fa20749aaeec68c09a4652c9160 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 14 Feb 1994 21:41:46 +0000
Subject: [PATCH] (check_x): Make it global. (x-parse-geometry, x-list-fonts):
 call check_x.

---
 src/xfns.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/xfns.c b/src/xfns.c
index 940826f3136..e6b6c43a497 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -234,7 +234,7 @@ extern Lisp_Object Vwindow_system_version;
 
 
 /* Error if we are not connected to X.  */
-static void
+void
 check_x ()
 {
   if (x_current_display == 0)
@@ -1487,6 +1487,7 @@ Returns an alist of the form ((top . TOP), (left . LEFT) ... ).")
   unsigned int width, height;
   Lisp_Object values[4];
 
+  check_x ();
   CHECK_STRING (string, 0);
 
   geometry = XParseGeometry ((char *) XSTRING (string)->data,
@@ -2525,6 +2526,7 @@ fonts), even if they match PATTERN and FACE.")
   XFontStruct *size_ref;
   Lisp_Object list;
 
+  check_x ();
   CHECK_STRING (pattern, 0);
   if (!NILP (face))
     CHECK_SYMBOL (face, 1);
-- 
2.39.5