/[cmucl]/src/hemlock/display.lisp
ViewVC logotype

Diff of /src/hemlock/display.lisp

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

revision 1.7 by chiles, Mon May 27 12:03:35 1991 UTC revision 1.8 by chiles, Mon Nov 11 18:12:44 1991 UTC
# Line 112  Line 112 
112               (funcall (device-force-output ,device)))               (funcall (device-force-output ,device)))
113             ,@(if afterp             ,@(if afterp
114                   `((when (device-after-redisplay ,device)                   `((when (device-after-redisplay ,device)
115                       (funcall (device-after-redisplay ,device) ,device))))                       (funcall (device-after-redisplay ,device) ,device)
116                         ;; The after method may have queued input that the input
117                         ;; loop won't see until the next input arrives, so check
118                         ;; here to return the correct value as per the redisplay
119                         ;; contract.
120                         (when (listen-editor-input *real-editor-input*)
121                           (setf ,n-res :editor-input)))))
122             ,n-res)))))             ,n-res)))))
123    
124  ) ;eval-when  ) ;eval-when

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

  ViewVC Help
Powered by ViewVC 1.1.5