procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Re-enable checks in member, memql, delete to complain about non-lists

Browse source 
* fns.c (Fmember, Fmemql, Fdelete): Revert 2007-10-16 change.
This commit is contained in:
Andreas Schwab 2016-01-29 11:18:42 +01:00
parent c32cc606df
commit f524e8b7f1
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/fns.c
View file

@ -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; !NILP (tail); tail = XCDR (tail))
{
register Lisp_Object tem;
CHECK_LIST_CONS (tail, list);
@ -1397,7 +1397,7 @@ The value is actually the tail of LIST whose car is ELT. */)
if (!FLOATP (elt))
return Fmemq (elt, list);
for (tail = list; CONSP (tail); tail = XCDR (tail))
for (tail = list; !NILP (tail); tail = XCDR (tail))
{
register Lisp_Object tem;
CHECK_LIST_CONS (tail, list);
@ -1710,7 +1710,7 @@ changing the value of a sequence `foo'. */)
{
Lisp_Object tail, prev;
for (tail = seq, prev = Qnil; CONSP (tail); tail = XCDR (tail))
for (tail = seq, prev = Qnil; !NILP (tail); tail = XCDR (tail))
{
CHECK_LIST_CONS (tail, seq);