Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a25f4dfa
Commit
a25f4dfa
authored
Apr 11, 2011
by
Paul Eggert
Browse files
* lisp.h (circular_list_error, FOREACH): Remove; unused.
* data.c (circular_list_error): Remove.
parent
14a9c8df
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
5 additions
and
18 deletions
+5
-18
src/ChangeLog
src/ChangeLog
+5
-0
src/data.c
src/data.c
+0
-7
src/lisp.h
src/lisp.h
+0
-11
No files found.
src/ChangeLog
View file @
a25f4dfa
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):
...
...
src/data.c
View file @
a25f4dfa
...
...
@@ -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
)
{
...
...
src/lisp.h
View file @
a25f4dfa
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment