anchor.diff:                     (fill (screen-old-lines screen) nil :start i)
                      (charms/ll:wmove (screen-%scrwin screen) y 0)
                      (charms/ll:wclrtobot (screen-%scrwin screen))
  -                   (return))))
  -      ;(screen-move-cursor screen visual-cursor-x visual-cursor-y)
  -      )))
  +                   (return)))))))
   
   (defun screen-redraw-separator (window)
     (let ((attr (attribute-to-bits 'modeline)))
  
positive.code:                         (equal str/attributes #1#)
                          (/= cursor-y i))
                     (let ((n (count i wrap-lines)))
                       (when (and (< 0 n) (<= y visual-cursor-y))
                         (incf visual-cursor-y n))
                       (incf y n)
                       (dotimes (_ n)
                         (push i (screen-wrap-lines screen)))))
  
negative.code: (defun screen-display-line-wrapping (screen screen-width start-x view-charpos
                                              visual-cursor-x visual-cursor-y
                                              point-x point-y str/attributes)
    (declare (ignore visual-cursor-x visual-cursor-y point-x))
    (when (and (< 0 view-charpos) (= point-y 0))
      (setf str/attributes
            (cons (subseq (car str/attributes) view-charpos)
                  (lem-base::subseq-elements (cdr str/attributes)
                                             view-charpos
                                             (length (car str/attributes))))))
    (let ((start 0))
      (loop :for i := (wide-index (car str/attributes)
                                  (1- screen-width)
                                  :start start)
            :while (< point-y (screen-height screen))
            :do (cond ((null i)
                       (disp-print-line screen point-y str/attributes t
                                        :string-start start :start-x start-x)
                       (return))
                      (t
                       (disp-print-line screen point-y str/attributes t
                                        :string-start start :string-end i
                                        :start-x start-x)
                       (disp-print-line screen point-y
                                        *truncate-str/attributes*
                                        t
                                        :start-x (+ start-x (1- screen-width)))
                       (incf point-y)
                       (setf start i))))
      (values nil nil point-y)))
  
  (defun screen-display-line (screen screen-width start-x view-charpos
                                     visual-cursor-x visual-cursor-y
  