Subject: bug#27584: 26.0.50; alist-get: Add optional arg TESTFN

From: Nicolas Petton <[email-masked]>
Date: Tue, 11 Jul 2017 10:08:40 +0200

Eli Zaretskii <[email-masked]> writes:

> 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;
>     }

I installed your version in master.

Tino, would you like to adapt your patch to use the new assoc?

Cheers,
Nico