anchor.diff:                                        screen-width
                                         view-charpos
                                         cursor-y
  -                                      point-x
  +                                      cursor-x
                                         y
                                         str/attributes)))
                        (cond
  
positive.code:                          (count-lines view-point cursor-point)
                           0))
             (view-charpos (if focus-window-p (point-charpos view-point) 0))
             (point-x (if focus-window-p
                          (point-charpos cursor-point)
                          0)))
        (loop :for y :from 0
              :for i :from 0
              :for str/attributes :across (screen-lines screen)
  
negative.code: (defvar *truncate-str/attributes* (cons " " (list '(0 1 lem::truncate-attribute))))
  
  (defun screen-display-line-wrapping (screen screen-width view-charpos
                                              cursor-y cursor-x
                                              point-y str/attributes)
    (declare (ignore cursor-y cursor-x))
    (when (and (< 0 view-charpos) (= point-y 0))
      (setf str/attributes
            (cons (subseq (car str/attributes) view-charpos)
  