# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 761262106 0
# Node ID ef777779bd805a2037e36ce2dfec02a8bedb6b21
# Parent  9ff4395651457e1843ea462613aacb8167359f8f
(check_x): Make it global.
(x-parse-geometry, x-list-fonts): call check_x.

diff -r 9ff439565145 -r ef777779bd80 src/xfns.c
--- a/src/xfns.c	Mon Feb 14 21:40:43 1994 +0000
+++ b/src/xfns.c	Mon Feb 14 21:41:46 1994 +0000
@@ -234,7 +234,7 @@
 
 
 /* Error if we are not connected to X.  */
-static void
+void
 check_x ()
 {
   if (x_current_display == 0)
@@ -1487,6 +1487,7 @@
   unsigned int width, height;
   Lisp_Object values[4];
 
+  check_x ();
   CHECK_STRING (string, 0);
 
   geometry = XParseGeometry ((char *) XSTRING (string)->data,
@@ -2525,6 +2526,7 @@
   XFontStruct *size_ref;
   Lisp_Object list;
 
+  check_x ();
   CHECK_STRING (pattern, 0);
   if (!NILP (face))
     CHECK_SYMBOL (face, 1);