anchor.diff:  
   (defun display-drei-area (drei)
     (with-accessors ((stream editor-pane) (view view)) drei
  +    (clear-output-record drei)
       (replay drei stream)
  +    (with-bounding-rectangle* (x1 y1 x2 y2) drei
  +      (letf (((stream-current-output-record stream) drei))
  +        ;; XXX: This sets the size of the output record.
  +        (draw-rectangle* stream x1 y1 x2 y2 :ink +transparent-ink+)))
       (when (point-cursor drei)
         (with-bounding-rectangle* (x1 y1 x2 y2) (point-cursor drei)
           (when (pane-viewport stream)
  
positive.code:       (if (adjust-pane drei-pane)
            (display-drei-pane frame drei-pane)
            ;; Point must be on top of all other cursors.
            (progn
              (dolist (cursor (cursors drei-pane))
                (display-drei-view-cursor drei-pane view cursor))
              (fix-pane-viewport drei-pane (view drei-pane)))))))
  
  (defgeneric full-redisplay (pane)
    (:documentation "Queue a full redisplay for `pane'."))
  
negative.code:            (descent (text-style-descent style pane))
             (height (+ ascent descent)))
        (multiple-value-bind (x1 y1 x2 y2)
            (drei-bounding-rectangle* drei)
          (when (= x1 y1 x2 y2 0)
            ;; It hasn't been displayed yet, so stuff the position into
            ;; it...
            (setf x1 (first (input-editor-position drei))
                  y1 (second (input-editor-position drei))))
          (values x1 y1
                  (max x2 (+ x1 style-width)
                       (cond ((numberp min-width)
  