[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d27c807: Re-enable checks in member, memql, delete
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] master d27c807: Re-enable checks in member, memql, delete to complain about non-lists |
Date: |
Sat, 30 Jan 2016 09:41:34 +0000 |
branch: master
commit d27c8078ef766dae3587bc82b70128a70efaa223
Author: Andreas Schwab <address@hidden>
Commit: Andreas Schwab <address@hidden>
Re-enable checks in member, memql, delete to complain about non-lists
* fns.c (Fmember, Fmemql, Fdelete): Revert 2007-10-16 change.
---
src/fns.c | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/fns.c b/src/fns.c
index 86ad333..d180844 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; !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);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d27c807: Re-enable checks in member, memql, delete to complain about non-lists,
Andreas Schwab <=