anchor.diff:                                            (window-buffer)))))
                            (window-cur-linum window)
                            (window-cur-col window)))))
  -    (window-update-line
  +    (window-print-line
        window
        (1- (window-nlines window))
        str)))
  
positive.code:   (- (window-cur-linum window)
       (window-vtop-linum window)))
  
  (defun window-update-line (window y str)
    (cl-charms/low-level:mvwaddstr
     (window-win window) y 0
     (concatenate 'string
  
negative.code:                       "$~a"
                        (substring-width str (- curx cols -3))))
          (setq curx (- cols 1))))
        (window-print-line window y str))
      curx))
  
  (defun window-refresh-lines (window)
  