From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 18 Mar 2006 13:48:57 +0000 (+0000)
Subject: (x_display_ok): New function.
X-Git-Tag: emacs-pretest-22.0.90~3540
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c7b6f9f1bc8ffd02602a5a5e3146cc3edb487d4;p=emacs.git

(x_display_ok): New function.
---

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;