Subject: bug#32372: [PATCH] Add "uuid" to thing-at-point.el

From: "Basil L. Contovounesios" <[email-masked]>
Date: Tue, 07 Aug 2018 20:45:54 +0300

Ivan Shmakov <[email-masked]> writes:

>>>>>> Raimon Grau <[email-masked]> writes:

>  > +
>  > +(put 'uuid 'bounds-of-thing-at-point
>  > +     (lambda ()
>  > +       (let ((thing (thing-at-point-looking-at
>  > +                     thing-at-point-uuid-regexp 36)))
>  > +         (if thing
>  > +             (let ((beginning (match-beginning 0))
>  > +                   (end (match-end 0)))
>  > +               (cons beginning end))))))
>
> 	Why not simplify to (cons (match-beginning 0) (match-end 0))?

If you're in the business of simplifying, why not take it all the way:

  (and (thing-at-point-looking-at thing-at-point-uuid-regexp 36)
       (cons (match-beginning 0) (match-end 0)))

-- 
Basil