[Emacs-diffs] master 01d6349 1/3: Remove unnecessary tortoise checks.

[Paul Eggert]

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
             {