anchor.diff:  buffer offset `start-offset', and will be drawn starting
   at (`cursor-x', `cursor-y')"
     (let* ((line (line-information view (displayed-lines-count view)))
  -         (orig-x-offset cursor-x)
            (old-line-height (dimensions-height (line-dimensions line)))
  -         (old-line-width (dimensions-width (line-dimensions line))))
  +         (old-line-width (dimensions-width (line-dimensions line)))
  +         (orig-x-offset cursor-x))
       (setf (line-start-offset line) start-offset
             (line-stroke-count line) 0)
       (loop for index from 0
  
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:                 (face-style
                   (drawing-options-face
                    (stroke-drawing-options stroke)))
                  (medium-merged-text-style (sheet-medium stream)))))
  
  (defgeneric offset-to-screen-position (pane view offset)
    (:documentation "Returns the position of offset as a screen
  