anchor.diff:                                (point-charpos (window-view-point window))
                                 (if focus-window-p
                                     (count-lines (window-view-point window)
  -                                               (lem::window-point window))
  +                                               (window-point window))
                                     -1))
           (setf (screen-old-left-width screen)
                 (screen-left-width screen))
  
positive.code: (defmethod interface-redraw-window (implementation window force)
    (let ((focus-window-p (eq window (current-window)))
          (buffer (window-buffer window))
          (screen (lem::window-screen window)))
      (let ((scroll-n (when focus-window-p
                        (window-see window))))
        (when (or (not (native-scroll-support *implementation*))
  
negative.code:                 (unless (line-offset point 1)
                    (fill (screen-lines screen) nil :start (1+ i))
                    (return))))
      (let ((overlays (overlays buffer))
            ov)
        (when (setf ov (maybe-push-mark-overlay window)) (push ov overlays))
        (disp-set-overlays screen overlays view-point)
  