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

[Paul W. Rankin]

On Sat, Jan 25 2020, Stefan Kangas wrote:
>
> You have a typo in the code btw, should say:
>     (unless subexp (setq subexp 0))

Whoops, thanks! I'd been using this in my init for a while with "group"
and too quickly made the change for Emaconsistency.

    (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 subexp (setq subexp 0))
        (delete-region (match-beginning subexp) (match-end subexp))))