anchor.diff:                  (face-style
                    (drawing-options-face
                     (stroke-drawing-options stroke)))
  -                (medium-default-text-style stream))))
  +                (medium-merged-text-style (sheet-medium stream)))))
   
   (defgeneric offset-to-screen-position (pane view offset)
     (:documentation "Returns the position of offset as a screen
  
positive.code:                             (return-from worker
                                (values (x1 stroke-dimensions) (y1 stroke-dimensions)
                                        (dimensions-height line-dimensions)
                                        (- (if (= end-offset (1+ start-offset))
                                               (x2 stroke-dimensions)
                                               (offset-in-stroke-position pane view stroke (1+ offset)))
                                           (x1 stroke-dimensions)))))
                             ((and (<= start-offset offset)
                                   (< offset end-offset))
                              (return-from worker
  
negative.code:                   worker (values (x2 line-dimensions) (y1 line-dimensions)
                                   (dimensions-height line-dimensions))))))))
      (with-accessors ((buffer buffer) (top top) (bot bot)) view
        (let ((default-object-width
               (text-style-width
                (medium-merged-text-style (sheet-medium pane)) pane)))
          (cond
            ((< offset (offset top)) nil)
            ((< (offset bot) offset) t)
  