Re: member inconsistency?

[Andreas Schwab <schwab@suse.de>]

Stephen Berman <stephen.berman@gmx.net> writes:

> diff --git a/src/fns.c b/src/fns.c
> index 86ad333..17c4a75 100644
> --- a/src/fns.c
> +++ b/src/fns.c
> @@ -1349,7 +1349,7 @@ The value is actually the tail of LIST whose car is ELT.  */)
>    (register Lisp_Object elt, Lisp_Object list)
>  {
>    register Lisp_Object tail;
> -  for (tail = list; CONSP (tail); tail = XCDR (tail))
> +  for (tail = list; CONSP (tail) || !NILP (tail); tail = XCDR (tail))
>      {
>        register Lisp_Object tem;
>        CHECK_LIST_CONS (tail, list);

The check for CONSP in the loop condition is redundant, that is already
checked by CHECK_LIST_CONS (and the latter was a no-op before).

Andreas.

-- 
Andreas Schwab, SUSE Labs, schwab@suse.de
GPG Key fingerprint = 0196 BAD8 1CE9 1970 F4BE  1748 E4D4 88E3 0EEA B9D7
"And now for something completely different."