anchor.diff:      (let ((prev-end 0)
             (x start-x))
         (loop :for (start end attr) :in attributes
  -	 :do (setf end (min (length str) end))
  -	 :do (progn
  -	       (screen-print-string-attr screen x y (subseq str prev-end start) nil)
  -	       (incf x (string-width str prev-end start)))
  -	 :do (progn
  -	       (screen-print-string-attr screen x y (subseq str start end) attr)
  -	       (incf x (string-width str start end)))
  -	 :do (setf prev-end end))
  +            :do (setf end (min (length str) end))
  +            :do (progn
  +                  (screen-print-string-attr screen x y (subseq str prev-end start) nil)
  +                  (incf x (string-width str prev-end start)))
  +            :do (progn
  +                  (screen-print-string-attr screen x y (subseq str start end) attr)
  +                  (incf x (string-width str start end)))
  +            :do (setf prev-end end))
         (screen-print-string-attr screen x y
                                   (if (= prev-end 0)
                                       str
  
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:     (when mark-overlay
        (delete-overlay mark-overlay))))
  
  (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))
  