GNU bug report logs - #32372
[PATCH] Add "uuid" to thing-at-point.el

Previous Next

Package: emacs;

Reported by: Raimon Grau <raimon <at> konghq.com>

Date: Sun, 5 Aug 2018 23:14:02 UTC

Severity: wishlist

Tags: fixed, patch

Fixed in version 27.1

Done: Noam Postavsky <npostavs <at> gmail.com>

Bug is archived. No further changes may be made.

Full log

Message #31 received at 32372 <at> debbugs.gnu.org (full text, mbox):

From: "Basil L. Contovounesios" <contovob <at> tcd.ie>
To: Ivan Shmakov <ivan <at> siamics.net>
Cc: Raimon Grau <raimon <at> konghq.com>, Noam Postavsky <npostavs <at> gmail.com>,
 32372 <at> debbugs.gnu.org
Subject: Re: bug#32372: [PATCH] Add "uuid" to thing-at-point.el
Date: Tue, 07 Aug 2018 20:45:54 +0300

Ivan Shmakov <ivan <at> siamics.net> writes:

>>>>>> Raimon Grau <raimon <at> konghq.com> 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
This bug report was last modified 6 years and 278 days ago.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.