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:                   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-default-text-style pane) pane)))
          (cond
            ((< offset (offset top)) nil)
            ((< (offset bot) offset) t)
  
negative.code:                             (return-from worker
                                (values (x1 stroke-dimensions) (y1 stroke-dimensions)
                                        (dimensions-height line-dimensions)
                                        (if (= end-offset (1+ start-offset))
                                            (dimensions-width stroke-dimensions)
                                            (offset-in-stroke-position pane view stroke (1+ offset))))))
                             ((and (<= start-offset offset)
                                   (< offset end-offset))
                              (return-from worker
  