From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 17 Apr 2003 21:44:50 +0000 (+0000)
Subject: (Fdefine_abbrev_table): Use XCAR, XCDR.
X-Git-Tag: ttn-vms-21-2-B4~10483
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52ad5ecc6c464a57eb4ecf35fd5aa72275e25dfb;p=emacs.git

(Fdefine_abbrev_table): Use XCAR, XCDR.
---

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);