mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 16:21:07 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* data.c (circular_list_error): Remove.
This commit is contained in:
Paul Eggert 2011-04-11 22:17:33 -07:00
parent 14a9c8df7a
commit a25f4dfafb
3 changed files with 5 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
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):

7
src/data.c
View file

@ -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)
{

11
src/lisp.h
View file

@ -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