Artur Malabarba writes:

> Quick fix :-)
>
>> +(defun map--elt-list (map key &optional default)
>> +  "Return the element of the list MAP at the index KEY.
>> +If KEY is not found, return DEFAULT which defaults to nil."
>> +  (let ((pair (assoc key map)))
>> +    (if pair
>> +        (cdr (assoc key map))
>> +      default)))
>
> How about the following?
>
>  (if pair (cdr pair)
>    default)))

Thanks, I extracted `pair' and then forgot about it :)

Nico
-- 
Nicolas Petton
http://nicolas-petton.fr