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