martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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);