From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 14 Feb 1994 23:28:23 +0000 (+0000)
Subject: (Fx_close_current_connection): call check_x.
X-Git-Tag: emacs-19.34~9902
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ffe73ce3c7d9bf34b51fb859812c00225de9ff1;p=emacs.git

(Fx_close_current_connection): call check_x.
---

diff --git a/src/xfns.c b/src/xfns.c
index e6b6c43a497..0c775d3994f 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3925,6 +3925,12 @@ DEFUN ("x-close-current-connection", Fx_close_current_connection,
        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. */