anchor.diff:                 (maybe-clear last-clear-x (x1 stroke-dimensions))
                  (setf last-clear-x (x2 stroke-dimensions)))
                ;; This clears from end of line to the end of the sheet.
  -             finally (maybe-clear last-clear-x (bounding-rectangle-width pane))))
  +             finally (maybe-clear last-clear-x (+ last-clear-x view-width))))
           ;; Now actually draw them in a way that makes sure they all
           ;; touch the bottom of the line.
           (loop for stroke-index below (line-stroke-count line)
  
positive.code:                            ((coordinates-intersects-dimensions
                               (stroke-dimensions stroke) x1 y1 x2 y2)
                              (setf (stroke-dirty stroke) t)
                              (setf (stroke-modified stroke) t))))))))))))
  
  (defmethod display-drei-view-cursor ((stream extended-output-stream)
                                       (view drei-buffer-view)
  
negative.code:                           (incf (displayed-lines-count view))
                            (return (values pump-state line-height))))))))
  
  (defun clear-stale-lines (pane view old-width old-height)
    "Clear from the last displayed line to the end of `pane' and
  mark undisplayed line objects as dirty. `Old-width'/`old-height'
  are the old dimensions of the display of `view' in device units."
    ;; This way, strokes of lines that have at one point been left
    ;; undisplayed will always be considered modified when they are
    ;; filled again. The return is for optimisation, we know that an
  