bug#27659: 26.0.50; Add string-matched-text: string-match + match-string

[Tino Calancha <tino.calancha@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 925 bytes --]



On Thu, 20 Jul 2017, Philipp Stephani wrote:

> 
> 
> Tino Calancha <tino.calancha@gmail.com> schrieb am Mi., 12. Juli 2017 um 08:16 Uhr:
>       Severity: wishlist
>
>       Just wondering if the following is of any interest:
>
>       (defun string-matched-text (regexp string num &optional start)
>         ""
>         (when (string-match regexp string start)
>           (match-string num string)))
>
>       Then,
>
>       (let ((str "foo-123"))
>         (when (string-match "[[:alpha:]]+-\\([0-9]+\\)" str)
>           (match-string 1 str)))
>       => "123"
>
>       is equivalent to:
>       (string-matched-text "[[:alpha:]]+-\\([0-9]+\\)" "foo-123" 1)
>       => "123"
> 
> 
> This looks useful, but I think it would be even better to add it as a pcase macro to be composable (see attached patch). 
Thank you!
Although, i must admit i am not fluent in `rx' syntaxis, i find your idea
very nice.

Tino