diff options
| author | Stefan Monnier <[email protected]> | 2003-04-17 21:44:50 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2003-04-17 21:44:50 +0000 |
| commit | 52ad5ecc6c464a57eb4ecf35fd5aa72275e25dfb (patch) | |
| tree | e1fba3f7c757e35d28e0f6873efdffbb9dc8abe3 /src | |
| parent | 2adfdbcbca0a37332b8036b33b57643407c826b4 (diff) | |
(Fdefine_abbrev_table): Use XCAR, XCDR.
Diffstat (limited to 'src')
| -rw-r--r-- | src/abbrev.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/abbrev.c b/src/abbrev.c index ae675bb310..dabc03b2a5 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); |