From 4ffe73ce3c7d9bf34b51fb859812c00225de9ff1 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 14 Feb 1994 23:28:23 +0000 Subject: [PATCH] (Fx_close_current_connection): call check_x. --- src/xfns.c | 6 ++++++ 1 file changed, 6 insertions(+) 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. */ -- 2.39.5