From 2a5c859b0feed9bebccdc1ff3d0615bf98c2b681 Mon Sep 17 00:00:00 2001
From: "Brian A. LaMacchia" <edu/mit/csail/zurich/bal>
Date: Fri, 26 Jul 1991 20:57:10 +0000
Subject: [PATCH] Added variable x-display-name, which defaults to false.
 fluid-let'ing x-display-name to a string (like "freeside:0") before invoking
 edwin allows edwin to pop up an X window on non-local displays.

---
 v7/src/edwin/xterm.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index 0aafad75b..3218db844 100644
--- a/v7/src/edwin/xterm.scm
+++ b/v7/src/edwin/xterm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/xterm.scm,v 1.18 1991/04/29 10:42:11 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/xterm.scm,v 1.19 1991/07/26 20:57:10 bal Exp $
 ;;;
 ;;;	Copyright (c) 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -504,12 +504,13 @@
 (define x-display-type)
 (define x-display-data)
 (define x-display-events)
+(define x-display-name false)
 
 (define (get-x-display)
   ;; X-OPEN-DISPLAY hangs, uninterruptibly, when the X server is
   ;; running the login loop of xdm.  Can this be fixed?
   (or x-display-data
-      (let ((display (x-open-display false)))
+      (let ((display (x-open-display x-display-name)))
 	(set! x-display-data display)
 	(set! x-display-events (make-queue))
 	(set! allow-asynchronous-input? true)
@@ -530,4 +531,4 @@
 			   with-x-interrupts-disabled))
   (set! x-display-data false)
   (set! x-display-events)
-  unspecific)
\ No newline at end of file
+  unspecific)
-- 
2.25.1