mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
This reverts commit f524e8b7f1.
This commit is contained in:
Andreas Schwab 2016-01-30 10:39:20 +01:00
parent a089d6a211
commit df5ae7ddab
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 elt, Lisp_Object list)
{ {
register Lisp_Object tail; register Lisp_Object tail;
for (tail = list; !NILP (tail); tail = XCDR (tail)) for (tail = list; CONSP (tail); tail = XCDR (tail))
{ {
register Lisp_Object tem; register Lisp_Object tem;
CHECK_LIST_CONS (tail, list); CHECK_LIST_CONS (tail, list);
@ -1397,7 +1397,7 @@ The value is actually the tail of LIST whose car is ELT. */)
if (!FLOATP (elt)) if (!FLOATP (elt))
return Fmemq (elt, list); return Fmemq (elt, list);
for (tail = list; !NILP (tail); tail = XCDR (tail)) for (tail = list; CONSP (tail); tail = XCDR (tail))
{ {
register Lisp_Object tem; register Lisp_Object tem;
CHECK_LIST_CONS (tail, list); CHECK_LIST_CONS (tail, list);
@ -1710,7 +1710,7 @@ changing the value of a sequence `foo'. */)
{ {
Lisp_Object tail, prev; Lisp_Object tail, prev;
for (tail = seq, prev = Qnil; !NILP (tail); tail = XCDR (tail)) for (tail = seq, prev = Qnil; CONSP (tail); tail = XCDR (tail))
{ {
CHECK_LIST_CONS (tail, seq); CHECK_LIST_CONS (tail, seq);