Commit a25f4dfa authored by Paul Eggert's avatar Paul Eggert
Browse files

* lisp.h (circular_list_error, FOREACH): Remove; unused.

* data.c (circular_list_error): Remove.
parent 14a9c8df
2011-04-12 Paul Eggert <eggert@cs.ucla.edu>
* lisp.h (circular_list_error, FOREACH): Remove; unused.
* data.c (circular_list_error): Remove.
2011-04-11 Paul Eggert <eggert@cs.ucla.edu>
* commands.h (last_point_position, last_point_position_buffer):
......
......@@ -101,13 +101,6 @@ Lisp_Object Qinteractive_form;
static void swap_in_symval_forwarding (struct Lisp_Symbol *, struct Lisp_Buffer_Local_Value *);
void
circular_list_error (Lisp_Object list)
{
xsignal (Qcircular_list, list);
}
Lisp_Object
wrong_type_argument (register Lisp_Object predicate, register Lisp_Object value)
{
......
......@@ -2320,7 +2320,6 @@ extern Lisp_Object Qinteger;
extern Lisp_Object Qfont_spec, Qfont_entity, Qfont_object;
extern void circular_list_error (Lisp_Object) NO_RETURN;
EXFUN (Finteractive_form, 1);
EXFUN (Fbyteorder, 0);
......@@ -3521,16 +3520,6 @@ extern void init_system_name (void);
? 0 \
: (wrong_type_argument (Qlistp, (list))), 1))
#define FOREACH(hare, list, tortoise, n) \
for (tortoise = hare = (list), n = 0; \
!LIST_END_P (list, hare); \
(hare = XCDR (hare), ++n, \
((n & 1) != 0 \
? (tortoise = XCDR (tortoise), \
(EQ (hare, tortoise) \
&& (circular_list_error ((list)), 1))) \
: 0)))
/* Use this to suppress gcc's `...may be used before initialized' warnings. */
#ifdef lint
# define IF_LINT(Code) Code
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment