anchor.diff:                                    (funcall move-matched point res)
                                     (return t)))))))))
         (if (and result (not (funcall endp point)))
  -          result
  +          (when result point)
             (progn
               (move-point point start-point)
               nil)))))
  
positive.code:                          (search-backward-endp-function limit-point))
          (if reg-starts
              (apply #'values
                     t
                     (map 'list (lambda (reg-start reg-end)
                                  (when reg-start
                                    (subseq string reg-start reg-end)))
  
negative.code:                          (search-forward-endp-function limit-point))
          (if reg-starts
              (apply #'values
                     point
                     (map 'list (lambda (reg-start reg-end)
                                  (when reg-start
                                    (subseq string reg-start reg-end)))
  