anchor.diff:  (defmethod interface-redraw-window (implementation window force)
     (let ((focus-window-p (eq window (current-window)))
           (buffer (window-buffer window))
  -        (screen (lem::window-screen window)))
  +        (screen (window-screen window)))
       (let ((scroll-n (when focus-window-p
                         (window-see window))))
         (when (or (not (native-scroll-support *implementation*))
  
positive.code:   point-y)
  
  (defun adjust-horizontal-scroll (window)
    (let ((screen (lem::window-screen window))
          (buffer (window-buffer window)))
      (unless (variable-value 'truncate-lines :default buffer)
        (let ((point-column (point-column (buffer-point buffer)))
  
negative.code:               (end (buffer-mark buffer)))
            (when (point< end start)
              (rotatef start end))
            (make-temporary-overlay start end 'region))))))
  
  (defun maybe-set-cursor-attribute (window screen view-point)
    (when (eq window (current-window))
  