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.

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index 0aafad75ba01135ca395d41943c34df382e7f861..3218db844dd1f5df360b1f53caabc49ab06853ad 100644 (file)
--- 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)