diff options
| author | Karl Heuer <[email protected]> | 1994-02-14 21:41:46 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1994-02-14 21:41:46 +0000 |
| commit | 7fc9de26baa03fa20749aaeec68c09a4652c9160 (patch) | |
| tree | 00d5b610b0cdd72a3c217830844a734d5e1d8484 /src/xfns.c | |
| parent | 703e0710e9be8a3043a7e3e47edc90676ec4065e (diff) | |
(check_x): Make it global.
(x-parse-geometry, x-list-fonts): call check_x.
Diffstat (limited to 'src/xfns.c')
| -rw-r--r-- | src/xfns.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/xfns.c b/src/xfns.c index 940826f313..e6b6c43a49 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); |