From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Jun 1995 03:49:46 +0000 (+0000)
Subject: (Fx_open_connection, x_display_info_for_name):
X-Git-Tag: emacs-19.34~3478
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=806048df248ed426d264911aab82e6690371c985;p=emacs.git

(Fx_open_connection, x_display_info_for_name):
Error if window-system is not x.
---

diff --git a/src/xfns.c b/src/xfns.c
index f499355efdd..3e32e3c82f0 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -4673,6 +4673,9 @@ x_display_info_for_name (name)
 
   CHECK_STRING (name, 0);
 
+  if (! EQ (Vwindow_system, intern ("x")))
+    error ("Not using X Windows");
+
   for (dpyinfo = x_display_list, names = x_display_name_list;
        dpyinfo;
        dpyinfo = dpyinfo->next, names = XCONS (names)->cdr)
@@ -4717,6 +4720,9 @@ terminate Emacs if we can't open the connection.")
   if (! NILP (xrm_string))
     CHECK_STRING (xrm_string, 1);
 
+  if (! EQ (Vwindow_system, intern ("x")))
+    error ("Not using X Windows");
+
   if (! NILP (xrm_string))
     xrm_option = (unsigned char *) XSTRING (xrm_string)->data;
   else