anchor.diff:      (when mark-overlay
         (delete-overlay mark-overlay))))
   
  -(defun screen-display-line-wrapping (screen view-charpos
  +(defun screen-display-line-wrapping (screen screen-width start-x view-charpos
                                               visual-cursor-x visual-cursor-y
                                               point-x point-y str/attributes)
     (when (and (< 0 view-charpos) (= point-y 0))
  
positive.code:                    (when (zerop (length (car str/attributes)))
                       (charms/ll:wmove (screen-%scrwin screen) y 0)
                       (charms/ll:wclrtoeol (screen-%scrwin screen)))
                     (let (y2)
                       (cond
                         (left-str/attributes
                          (when (= y visual-cursor-y)
                            (incf point-x (length (car left-str/attributes))))
                          (setf str/attributes
                                (cons (concatenate 'string (car left-str/attributes) (car str/attributes))
                                      (append (cdr left-str/attributes)
                                              (lem-base::offset-elements
                                               (cdr str/attributes)
                                               (length (car left-str/attributes))))))))
                       (multiple-value-setq
                        (visual-cursor-x visual-cursor-y y2)
                        (funcall disp-line-function
                                 screen
                                 view-charpos
                                 visual-cursor-x
                                 visual-cursor-y
  
negative.code: 
  (defun disp-print-line (screen y str/attributes do-clrtoeol
                                 &key (start-x 0) (string-start 0) string-end)
    (destructuring-bind (str . attributes)
        str/attributes
      (when (null string-end)
  