From 52ad5ecc6c464a57eb4ecf35fd5aa72275e25dfb Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 17 Apr 2003 21:44:50 +0000 Subject: [PATCH] (Fdefine_abbrev_table): Use XCAR, XCDR. --- src/abbrev.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/abbrev.c b/src/abbrev.c index ae675bb310e..dabc03b2a55 100644 --- a/src/abbrev.c +++ b/src/abbrev.c @@ -592,9 +592,9 @@ of the form (ABBREVNAME EXPANSION HOOK USECOUNT SYSTEMFLAG). } CHECK_VECTOR (table); - for (; !NILP (definitions); definitions = Fcdr (definitions)) + for (; CONSP (definitions); definitions = XCDR (definitions)) { - elt = Fcar (definitions); + elt = XCAR (definitions); name = Fcar (elt); elt = Fcdr (elt); exp = Fcar (elt); elt = Fcdr (elt); hook = Fcar (elt); elt = Fcdr (elt); -- 2.11.4.GIT