From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 14 Feb 1994 21:41:46 +0000 (+0000)
Subject: (check_x): Make it global.
X-Git-Tag: emacs-19.34~9904
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7fc9de26baa03fa20749aaeec68c09a4652c9160;p=emacs.git

(check_x): Make it global.
(x-parse-geometry, x-list-fonts): call check_x.
---

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);