GNU bug report logs - #27584
26.0.50; alist-get: Add optional arg TESTFN

Previous Next

Package: emacs;

Reported by: Tino Calancha <tino.calancha <at> gmail.com>

Date: Wed, 5 Jul 2017 03:24:02 UTC

Severity: wishlist

Found in version 26.0.50

Done: Tino Calancha <tino.calancha <at> gmail.com>

Bug is archived. No further changes may be made.

Full log

View this message in rfc822 format

From: Tino Calancha <tino.calancha <at> gmail.com>
To: Eli Zaretskii <eliz <at> gnu.org>
Cc: Nicolas Petton <nicolas <at> petton.fr>, 27584 <at> debbugs.gnu.org, monnier <at> iro.umontreal.ca, tino.calancha <at> gmail.com
Subject: bug#27584: 26.0.50; alist-get: Add optional arg TESTFN
Date: Sun, 9 Jul 2017 23:48:32 +0900 (JST)


On Sat, 8 Jul 2017, Eli Zaretskii wrote:

>> From: Nicolas Petton <nicolas <at> petton.fr>
>> Cc: monnier <at> iro.umontreal.ca, 27584 <at> debbugs.gnu.org
>> Date: Sat, 08 Jul 2017 13:32:11 +0200
>>
>>> That's one way, yes.  But not necessarily the one I had in mind.
>>
>> What solution did you have in mind?
>
> Something like this:
>
>  FOR_EACH_TAIL (tail)
>    {
>      Lisp_Object car = XCAR (tail);
>      if (CONSP (car)
> 	  && (NILP (testfn)
> 	      ? (EQ (XCAR (car), key) || !NILP (Fequal (XCAR (car), key)))
> 	      : !NILP (call2 (testfn, XCAR (car), key))))
> 	return car;
>    }
Nice!
This bug report was last modified 7 years and 353 days ago.

Previous Next

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