Can we add a delete-match function to subr(-x).el?

[Paul W. Rankin]

Hello Emacizens,

I frequently forget that Emacs doesn't include a delete-match function
to be called after (re-)search-forward or the like.

Can we add something like the following to subr(-x).el?

    (defun delete-match (&optional subexp)
      "Delete text matched by last search.

    Optional argument SUBEXP specifies the subexpression to delete,
    or delete the entire match."
      (when (consp (match-data))
        (unless group (setq subexp 0))
        (delete-region (match-beginning subexp) (match-end subexp))))