diff --git a/code/clx-ext.lisp b/code/clx-ext.lisp index 73f45fa2344ceb3f3f62e7ee37af85bca480bb70..4bc19198624c7473263929c2ab6eb1f284727904 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