anchor.diff:      point-y))
   
   (defun screen-display-line (screen screen-width view-charpos
  -                                   visual-cursor-y
  -                                   point-x point-y str/attributes)
  +                                   cursor-y cursor-x
  +                                   point-y str/attributes)
     (declare (ignore view-charpos))
     (let ((visual-cursor-x 0)
           (start-x (screen-left-width screen)))
  -    (when (= visual-cursor-y point-y)
  -      (setf visual-cursor-x (string-width (car str/attributes) 0 point-x)))
  +    (when (= cursor-y point-y)
  +      (setf visual-cursor-x (string-width (car str/attributes) 0 cursor-x)))
       (let ((cols screen-width))
         (cond
           ((< (string-width (car str/attributes))
               screen-width)
            (disp-print-line screen point-y str/attributes t :start-x start-x))
  -        ((or (/= visual-cursor-y point-y)
  +        ((or (/= cursor-y point-y)
                (< visual-cursor-x (1- cols)))
            (let ((i (wide-index (car str/attributes) (1- cols))))
              (cond ((<= cols (string-width (car str/attributes) 0 i))
  
positive.code: (defvar *truncate-str/attributes* (cons " " (list '(0 1 lem::truncate-attribute))))
  
  (defun screen-display-line-wrapping (screen screen-width view-charpos
                                              visual-cursor-y
                                              point-x point-y str/attributes)
    (declare (ignore visual-cursor-y point-x))
    (when (and (< 0 view-charpos) (= point-y 0))
      (setf str/attributes
            (cons (subseq (car str/attributes) view-charpos)
  
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)
  