anchor.diff:                           (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)))
  +           (cursor-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)
  
positive.code:                                       screen-width
                                        view-charpos
                                        cursor-y
                                        point-x
                                        y
                                        str/attributes)))
                       (cond
  
negative.code:                                    :start-x start-x)
                    (disp-print-line screen point-y (cons "$" nil) nil
                                     :start-x (+ start-x i))))))
          ((< cursor-x (length (car str/attributes)))
           (let ((start (wide-index (car str/attributes) (- visual-cursor-x cols -3)))
                 (end cursor-x))
             (setf visual-cursor-x (- cols 2))
             (cond ((wide-char-p (char (car str/attributes) end))
                    (disp-print-line screen point-y (cons "$" nil) nil :start-x start-x)
  