From 3c7b6f9f1bc8ffd02602a5a5e3146cc3edb487d4 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 18 Mar 2006 13:48:57 +0000
Subject: [PATCH] (x_display_ok): New function.

---
 src/xterm.c | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/src/xterm.c b/src/xterm.c
index 30a41574e82..6360b9d2d07 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -10116,6 +10116,24 @@ get_bits_and_offset (mask, bits, offset)
   *bits = nr;
 }
 
+int
+x_display_ok (display)
+    const char * display;
+{
+    int dpy_ok = 1;
+    Display *dpy;
+    char *display_name = display || getenv("DISPLAY");
+
+    if (!display_name)
+      return 0;
+
+    if ((dpy = XOpenDisplay (display)))
+      XCloseDisplay (dpy);
+    else
+      dpy_ok = 0;
+    return dpy_ok;
+}
+
 struct x_display_info *
 x_term_init (display_name, xrm_option, resource_name)
      Lisp_Object display_name;
-- 
2.39.2