anchor.diff:                                 (window-current-charpos window)
                                  (window-current-linum window))
            (screen-redraw-separator window)
  -         (screen-redraw-modeline window)
  -         ))
  +         (screen-redraw-modeline window)))
     (charms/ll:wnoutrefresh (screen-%scrwin (window-screen window)))
     (when doupdate-p
       (charms/ll:doupdate)))
  
positive.code:          (minibuf-window-update))
          (t
           (window-see window)
           ;(charms/ll:werase (screen-%scrwin (window-screen window)))
           (screen-display-lines (window-screen window)
                                 (window-buffer window)
                                 (window-vtop-charpos window)
  
negative.code:                        (push i (screen-wrap-lines screen)))))
                   (setf y y2)
                   (incf y))
                 )
                (t
                 (charms/ll:wmove (screen-%scrwin screen) y 0)
                 (charms/ll:wclrtobot (screen-%scrwin screen))
                 (return)))))
      (screen-move-cursor screen curx cury)))
  