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