# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 761268503 0
# Node ID 27e4e703f089c323327cae5dac301d8d9cb3d2e1
# Parent  f394f25efb3c48b1e6a713c5831dfdc13e29510f
(Fx_close_current_connection): call check_x.

diff -r f394f25efb3c -r 27e4e703f089 src/xfns.c
--- a/src/xfns.c	Mon Feb 14 21:44:50 1994 +0000
+++ b/src/xfns.c	Mon Feb 14 23:28:23 1994 +0000
@@ -3925,6 +3925,12 @@
        0, 0, 0, "Close the connection to the current X server.")
   ()
 {
+  /* Note: If we're going to call check_x here, then the fatal error
+     can't happen.  For the moment, this check is just for safety,
+     so a user won't try out the function and get a crash.  If it's
+     really intended only to be called when killing emacs, then there's
+     no reason for it to have a lisp interface at all.  */
+  check_x();
 #ifdef HAVE_X11
   /* This is ONLY used when killing emacs;  For switching displays
      we'll have to take care of setting CloseDownMode elsewhere. */