Re: Discrepancy in definition/use of match-data?

[Richard Stallman]

    font-lock.el (font-lock-fontify-keywords-region):
                                  all calls to match-{beginning,end}
                 (font-lock-fontify-anchored-keywords):
                                  all calls to match-{beginning,end}

Is it caused by this code?

(defun c-find-invalid-doc-markup (regexp limit)
  ;; Used to fontify invalid markup in doc comments after the correct
  ;; ones have been fontified: Find the first occurence of REGEXP
  ;; between the point and LIMIT that only is fontified with
  ;; `c-doc-face-name'.  If a match is found then submatch 0 surrounds
  ;; the first char and t is returned, otherwise nil is returned.
  (let (start)
    (while (if (re-search-forward regexp limit t)
               (not (eq (get-text-property
                         (setq start (match-beginning 0)) 'face)
                        c-doc-face-name))
             (setq start nil)))
    (when start
      (store-match-data (list (copy-marker start)
                              (copy-marker (1+ start))))
      t)))