anchor.diff:                                              y
                                               (car left-str/attr)
                                               (cdr left-str/attr)))
  -                     (let ((*print-start-x* start-x))
  -                       (multiple-value-setq
  -                        (visual-cursor-x visual-cursor-y y2)
  -                        (funcall disp-line-function
  -                                 screen
  -                                 screen-width
  -                                 start-x
  -                                 view-charpos
  -                                 visual-cursor-x
  -                                 visual-cursor-y
  -                                 point-x
  -                                 y
  -                                 str/attributes)))
  +                     (let ((*print-start-x* left-width))
  +                       (setq y2
  +                             (funcall disp-line-function
  +                                      screen
  +                                      screen-width
  +                                      view-charpos
  +                                      cursor-y
  +                                      point-x
  +                                      y
  +                                      str/attributes)))
                        (cond
                          (truncate-lines
                           (let ((offset (- y2 y)))
  
positive.code:                      (charms/ll:wmove (screen-%scrwin screen) y 0)
                       (charms/ll:wclrtoeol (screen-%scrwin screen)))
                     (let ((screen-width (- (screen-width screen) left-width))
                           (start-x left-width)
                           y2)
                       (when left-str/attr
                         (screen-print-string screen
  
negative.code:          (wrap-lines (screen-wrap-lines screen))
           (left-width (screen-left-width screen)))
      (setf (screen-wrap-lines screen) nil)
      (let* ((cursor-y (if focus-window-p
                           (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)
  