[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 01d6349 1/3: Remove unnecessary tortoise checks.
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 01d6349 1/3: Remove unnecessary tortoise checks. |
Date: |
Thu, 27 Jun 2019 18:39:40 -0400 (EDT) |
branch: master
commit 01d6349b17316e184b890d056c575815edf11e26
Author: Pip Cet <address@hidden>
Commit: Paul Eggert <address@hidden>
Remove unnecessary tortoise checks.
* src/fns.c (Fplist_get, Fplist_put, Flax_plist_get)
(Flax_plist_put, Fplist_member): Remove unnecessary check.
* src/json.c (lisp_to_json_toplevel_1): Remove unnecessary check.
---
src/fns.c | 10 ----------
src/json.c | 1 -
2 files changed, 11 deletions(-)
diff --git a/src/fns.c b/src/fns.c
index fd0c7fc..2fc000a 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2164,8 +2164,6 @@ properties on the list. This function never signals an
error. */)
if (EQ (prop, XCAR (tail)))
return XCAR (XCDR (tail));
tail = XCDR (tail);
- if (EQ (tail, li.tortoise))
- break;
}
return Qnil;
@@ -2208,8 +2206,6 @@ The PLIST is modified by side effects. */)
prev = tail;
tail = XCDR (tail);
- if (EQ (tail, li.tortoise))
- circular_list (plist);
}
CHECK_TYPE (NILP (tail), Qplistp, plist);
Lisp_Object newcell
@@ -2247,8 +2243,6 @@ one of the properties on the list. */)
if (! NILP (Fequal (prop, XCAR (tail))))
return XCAR (XCDR (tail));
tail = XCDR (tail);
- if (EQ (tail, li.tortoise))
- circular_list (plist);
}
CHECK_TYPE (NILP (tail), Qplistp, plist);
@@ -2280,8 +2274,6 @@ The PLIST is modified by side effects. */)
prev = tail;
tail = XCDR (tail);
- if (EQ (tail, li.tortoise))
- circular_list (plist);
}
CHECK_TYPE (NILP (tail), Qplistp, plist);
Lisp_Object newcell = list2 (prop, val);
@@ -3045,8 +3037,6 @@ The value is actually the tail of PLIST whose car is
PROP. */)
tail = XCDR (tail);
if (! CONSP (tail))
break;
- if (EQ (tail, li.tortoise))
- circular_list (tail);
}
CHECK_TYPE (NILP (tail), Qplistp, plist);
return Qnil;
diff --git a/src/json.c b/src/json.c
index 23234c7..48820a1 100644
--- a/src/json.c
+++ b/src/json.c
@@ -404,7 +404,6 @@ lisp_to_json_toplevel_1 (Lisp_Object lisp,
tail = XCDR (tail);
CHECK_CONS (tail);
value = XCAR (tail);
- if (EQ (tail, li.tortoise)) circular_list (lisp);
}
else
{