aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorPaul Eggert2011-06-18 17:09:24 -0700
committerPaul Eggert2011-06-18 17:09:24 -0700
commit9f62aeb1857ab012244be221b1e6e13451fb394d (patch)
treeb4af580d65a1d61f43dcd8a04a6a73108c957986 /src
parenteb49b13608d6cf06af52c7d9fe88928a48f48cee (diff)
downloademacs-9f62aeb1857ab012244be221b1e6e13451fb394d.tar.gz
emacs-9f62aeb1857ab012244be221b1e6e13451fb394d.zip
* lisp.h (LIST_END_P): Remove unused macro and its bogus comment.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog1
-rw-r--r--src/lisp.h18
2 files changed, 1 insertions, 18 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 1b4edb91d1a..2bf6cc82997 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -4,6 +4,7 @@
4 This didn't break anything, but it didn't help either. 4 This didn't break anything, but it didn't help either.
5 It's confusing to put a bogus integer in a place where the actual 5 It's confusing to put a bogus integer in a place where the actual
6 value does not matter. 6 value does not matter.
7 (LIST_END_P): Remove unused macro and its bogus comment.
7 8
82011-06-18 Paul Eggert <eggert@cs.ucla.edu> 92011-06-18 Paul Eggert <eggert@cs.ucla.edu>
9 10
diff --git a/src/lisp.h b/src/lisp.h
index e065bad10d0..54c509125f8 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3590,24 +3590,6 @@ extern void init_system_name (void);
3590 3590
3591#define SWITCH_ENUM_CAST(x) (x) 3591#define SWITCH_ENUM_CAST(x) (x)
3592 3592
3593/* Loop over Lisp list LIST. Signal an error if LIST is not a proper
3594 list, or if it contains circles.
3595
3596 HARE and TORTOISE should be the names of Lisp_Object variables, and
3597 N should be the name of an EMACS_INT variable declared in the
3598 function where the macro is used. Each nested loop should use
3599 its own variables.
3600
3601 In the loop body, HARE is set to each cons of LIST, and N is the
3602 length of the list processed so far. */
3603
3604#define LIST_END_P(list, obj) \
3605 (NILP (obj) \
3606 ? 1 \
3607 : (CONSP (obj) \
3608 ? 0 \
3609 : (wrong_type_argument (Qlistp, (list))), 1))
3610
3611/* Use this to suppress gcc's warnings. */ 3593/* Use this to suppress gcc's warnings. */
3612#ifdef lint 3594#ifdef lint
3613 3595