mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 05:21:37 -07:00
Code Issues Projects Releases Wiki Activity

(Fdefine_abbrev_table): Use XCAR, XCDR.

Browse source
This commit is contained in:
Stefan Monnier 2003-04-17 21:44:50 +00:00
parent 2adfdbcbca
commit 52ad5ecc6c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/abbrev.c
View file

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