From ef5b4f3c93f1ebf3b4504057c823a50f8d8ea287 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 8 Mar 1990 11:02:50 +0000
Subject: [PATCH] Moved *display-event-handlers* defvar to serve-event so that
 server doesn't choke when this file isn't loaded.

---
 code/clx-ext.lisp | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/code/clx-ext.lisp b/code/clx-ext.lisp
index 73f45fa23..4bc191986 100644
--- a/code/clx-ext.lisp
+++ b/code/clx-ext.lisp
@@ -17,7 +17,7 @@
 
 (export '(open-clx-display with-clx-event-handling enable-clx-event-handling
 	  disable-clx-event-handling object-set-event-handler
-	  default-clx-event-handler *display-event-handlers*
+	  default-clx-event-handler
 	  flush-display-events carefully-add-font-paths
 
 	  serve-key-press serve-key-release serve-button-press
@@ -123,12 +123,6 @@
    there must be a mapping from that file descriptor to its CLX display
    structure when events are handled via SYSTEM:SERVE-EVENT.")
 
-(defvar *display-event-handlers* nil
-  "This is an alist mapping displays to user functions to be called when
-   SYSTEM:SERVE-EVENT notices input on a display connection.  Do not modify
-   this directly; use EXT:ENABLE-CLX-EVENT-HANDLING.  A given display
-   should be represented here only once.")
-
 (defmacro with-clx-event-handling ((display handler) &rest body)
   "Evaluates body in a context where events are handled for the display
    by calling handler on the display.  This destroys any previously established
-- 
GitLab