From 82bc827ff5e927b177796b281406da1757a22954 Mon Sep 17 00:00:00 2001
From: garland <garland>
Date: Thu, 4 Feb 1993 22:56:14 +0000
Subject: [PATCH] The inspector/debugger was not behaving properly in the
 absence of the DISPLAY environment variable.  It now correctly senses the
 lack of X and quietly uses the TTY.

---
 interface/interface.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/interface/interface.lisp b/interface/interface.lisp
index 1a0e56f15..f976b2fef 100644
--- a/interface/interface.lisp
+++ b/interface/interface.lisp
@@ -256,14 +256,14 @@
 
 (defun use-graphics-interface (&optional (kind *interface-style*))
   (cond
-   ((and (member kind '(:window :windows :graphics :graphical :x))
-	 (assoc :display ext:*environment-list*))
-    t)
+   ((not (assoc :display ext:*environment-list*)) nil)
+   ((member kind '(:window :windows :graphics :graphical :x)) t)
    ((member kind '(:command-line :tty)) nil)
    (t
-    (error "Interface specification must be one of :window, :windows, ~%~
-	    :graphics, :graphical, :x, :command-line, or :tty -- ~%~
-	    not ~S." kind))))
+    (let ((*interface-style* :tty))
+      (error "Interface specification must be one of :window, :windows, ~%~
+	      :graphics, :graphical, :x, :command-line, or :tty -- ~%~
+	      not ~S." kind)))))
 
 (defun close-connection-hook (connection)
   (declare (ignore connection))
-- 
GitLab