/[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.20 by ram, Fri Feb 26 08:26:11 1993 UTC revision 1.21 by ram, Wed Oct 20 13:54:32 1993 UTC
# Line 364  Line 364 
364    
365  ;;; Check for any X displays with pending events.  ;;; Check for any X displays with pending events.
366  ;;;  ;;;
 #+clx  
367  (defun handle-queued-clx-event ()  (defun handle-queued-clx-event ()
368    (dolist (d/h *display-event-handlers*)    (dolist (d/h *display-event-handlers*)
369      (let* ((d (car d/h))      (let* ((d (car d/h))
# Line 448  Line 447 
447  ;;;    Takes timeout broken into seconds and microseconds.  ;;;    Takes timeout broken into seconds and microseconds.
448  ;;;  ;;;
449  (defun sub-serve-event (to-sec to-usec)  (defun sub-serve-event (to-sec to-usec)
   #+clx  
450    (when (handle-queued-clx-event) (return-from sub-serve-event t))    (when (handle-queued-clx-event) (return-from sub-serve-event t))
451    
452    ;; Next, wait for something to happen.    ;; Next, wait for something to happen.

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

  ViewVC Help
Powered by ViewVC 1.1.5