* lisp.h (LIST_END_P): Remove unused macro and its bogus comment.

diff --git a/src/ChangeLog b/src/ChangeLog
index 1b4edb91d1abba6b33a28409b5e3b51006f04d5c..2bf6cc82997a26ac4d613748a1cadb94d51f8616 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -4,6 +4,7 @@
        This didn't break anything, but it didn't help either.
        It's confusing to put a bogus integer in a place where the actual
        value does not matter.
+       (LIST_END_P): Remove unused macro and its bogus comment.
 
 2011-06-18  Paul Eggert  <eggert@cs.ucla.edu>
 

diff --git a/src/lisp.h b/src/lisp.h
index e065bad10d04dc0f5a3d0ad3201e2cc341633ec3..54c509125f8db9110e98bc0135a11505758509bd 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3590,24 +3590,6 @@ extern void init_system_name (void);
 
 #define SWITCH_ENUM_CAST(x) (x)
 
-/* Loop over Lisp list LIST.  Signal an error if LIST is not a proper
-   list, or if it contains circles.
-
-   HARE and TORTOISE should be the names of Lisp_Object variables, and
-   N should be the name of an EMACS_INT variable declared in the
-   function where the macro is used.  Each nested loop should use
-   its own variables.
-
-   In the loop body, HARE is set to each cons of LIST, and N is the
-   length of the list processed so far.  */
-
-#define LIST_END_P(list, obj)                          \
-  (NILP (obj)                                          \
-   ? 1                                                 \
-   : (CONSP (obj)                                      \
-      ? 0                                              \
-      : (wrong_type_argument (Qlistp, (list))), 1))
-
 /* Use this to suppress gcc's warnings. */
 #ifdef lint