/[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.5 by ram, Fri Mar 15 22:23:24 1991 UTC revision 1.6 by ram, Mon Mar 18 13:23:49 1991 UTC
# Line 33  Line 33 
33     manager operation, and thus should be totally refreshed.  This is currently     manager operation, and thus should be totally refreshed.  This is currently
34     only used by tty redisplay.")     only used by tty redisplay.")
35    
36    ;;; True if we are in redisplay, and thus don't want to enter it recursively.
37    ;;;
38    (defvar *in-redisplay* nil)
39    
40  (proclaim '(special *window-list*))  (proclaim '(special *window-list*))
41    
42  (eval-when (compile eval)  (eval-when (compile eval)
# Line 60  Line 64 
64                            &optional (afterp t))                            &optional (afterp t))
65    (let ((device (gensym)) (point (gensym)) (hunk (gensym))    (let ((device (gensym)) (point (gensym)) (hunk (gensym))
66          (n-res (gensym)))          (n-res (gensym)))
67      `(let ((,n-res nil))      `(let ((,n-res nil)
68               (*in-redisplay* t))
69         (catch 'redisplay-catcher         (catch 'redisplay-catcher
70           (when (listen-editor-input *real-editor-input*)           (when (listen-editor-input *real-editor-input*)
71             (throw 'redisplay-catcher :editor-input))             (throw 'redisplay-catcher :editor-input))
# Line 102  Line 107 
107    (when *things-to-do-once*    (when *things-to-do-once*
108      (dolist (thing *things-to-do-once*) (apply (car thing) (cdr thing)))      (dolist (thing *things-to-do-once*) (apply (car thing) (cdr thing)))
109      (setq *things-to-do-once* nil))      (setq *things-to-do-once* nil))
110    (cond (*screen-image-trashed*    (cond (*in-redisplay* t)
111            (*screen-image-trashed*
112           (when (eq (redisplay-all) t)           (when (eq (redisplay-all) t)
113             (setq *screen-image-trashed* nil)             (setq *screen-image-trashed* nil)
114             t))             t))
# Line 152  Line 158 
158    (when *things-to-do-once*    (when *things-to-do-once*
159      (dolist (thing *things-to-do-once*) (apply (car thing) (cdr thing)))      (dolist (thing *things-to-do-once*) (apply (car thing) (cdr thing)))
160      (setq *things-to-do-once* nil))      (setq *things-to-do-once* nil))
161    (cond (*screen-image-trashed*    (cond (*in-redisplay* t)
162            (*screen-image-trashed*
163           (when (eq (redisplay-all) t)           (when (eq (redisplay-all) t)
164             (setq *screen-image-trashed* nil)             (setq *screen-image-trashed* nil)
165             t))             t))
# Line 173  Line 180 
180    (when *things-to-do-once*    (when *things-to-do-once*
181      (dolist (thing *things-to-do-once*) (apply (car thing) (cdr thing)))      (dolist (thing *things-to-do-once*) (apply (car thing) (cdr thing)))
182      (setq *things-to-do-once* nil))      (setq *things-to-do-once* nil))
183    (cond ((listen-editor-input *real-editor-input*))    (cond ((or *in-redisplay* (not *in-the-editor*)) t)
184            ((listen-editor-input *real-editor-input*) :editor-input)
185          (*screen-image-trashed*          (*screen-image-trashed*
186           (when (eq (redisplay-all) t)           (when (eq (redisplay-all) t)
187             (setq *screen-image-trashed* nil)             (setq *screen-image-trashed* nil)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5