/[cmucl]/src/code/serve-event.lisp
ViewVC logotype

Diff of /src/code/serve-event.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by ram, Wed May 22 00:19:39 1991 UTC revision 1.9 by ram, Wed May 22 17:47:15 1991 UTC
# Line 269  Line 269 
269    #+clx    #+clx
270    (dolist (d/h *display-event-handlers*)    (dolist (d/h *display-event-handlers*)
271      (let ((d (car d/h)))      (let ((d (car d/h)))
272        (when (xlib::event-listen d)        (declare (inline member))
273          ;;
274          ;; If in the *descriptor-handlers*, then we are already waiting for input
275          ;; on that display, and we don't want to do it recursively.
276          (when (and (not (member (fd-stream-fd (xlib::display-input-stream d))
277                                  *descriptor-handlers*
278                                  :key #'handler-descriptor))
279                     (xlib::event-listen d))
280          (handler-bind ((error #'(lambda (condx)          (handler-bind ((error #'(lambda (condx)
281                                    (declare (ignore condx))                                    (declare (ignore condx))
282                                    (flush-display-events d))))                                    (flush-display-events d))))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5