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

Diff of /src/hemlock/mh.lisp

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

revision 1.2.1.5 by wlott, Fri Nov 23 08:39:24 1990 UTC revision 1.2.1.6 by ram, Mon Dec 10 18:44:41 1990 UTC
# Line 1156  Line 1156 
1156  ;;;  ;;;
1157  (defun maybe-delete-extra-draft-window (dbuffer dbuffer-window)  (defun maybe-delete-extra-draft-window (dbuffer dbuffer-window)
1158    (when (and (hemlock-bound-p 'split-window-draft :buffer dbuffer)    (when (and (hemlock-bound-p 'split-window-draft :buffer dbuffer)
1159               (> (length (the list *window-list*)) 2))               ;; Since we now bitmap devices have window groups, this loop is
1160      (delete-window               ;; more correct than testing the length of *window-list* and
1161       (find-if #'(lambda (w)               ;; accounting for *echo-area-window* being in there.
1162                    (not (or (eq w dbuffer-window)               (do ((start dbuffer-window)
1163                             (eq w *echo-area-window*))))                    (count 1 (1+ count))
1164                *window-list*))                    (w (next-window dbuffer-window) (next-window w)))
1165                     ((eq start w) (> count 1))))
1166        (delete-window (next-window dbuffer-window))
1167      (delete-variable 'split-window-draft :buffer dbuffer)))      (delete-variable 'split-window-draft :buffer dbuffer)))
1168    
1169    

Legend:
Removed from v.1.2.1.5  
changed lines
  Added in v.1.2.1.6

  ViewVC Help
Powered by ViewVC 1.1.5