diff options
author | Andreas Schwab <schwab@linux-m68k.org> | 2016-01-30 10:39:20 +0100 |
---|---|---|
committer | Andreas Schwab <schwab@linux-m68k.org> | 2016-01-30 10:39:20 +0100 |
commit | df5ae7ddab1bd2fbb8a6a4abc05d4922abf8c5db (patch) | |
tree | 1b008aaa8b72af6aa6811ae70969d4304b44dbea | |
parent | a089d6a211c9051e27a78d03d5b323300134bb21 (diff) | |
download | emacs-df5ae7ddab1bd2fbb8a6a4abc05d4922abf8c5db.tar.gz |
Revert "Re-enable checks in member, memql, delete to complain about non-lists"
This reverts commit f524e8b7f12d9b5a8b92084e5385429fe7b085b9.
-rw-r--r-- | src/fns.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/fns.c b/src/fns.c index d1808440966..86ad333702e 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; !NILP (tail); tail = XCDR (tail)) + for (tail = list; CONSP (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; !NILP (tail); tail = XCDR (tail)) + for (tail = list; CONSP (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; !NILP (tail); tail = XCDR (tail)) + for (tail = seq, prev = Qnil; CONSP (tail); tail = XCDR (tail)) { CHECK_LIST_CONS (tail, seq); |