diff options
| author | Stefan Monnier | 2003-04-17 21:44:50 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-04-17 21:44:50 +0000 |
| commit | 52ad5ecc6c464a57eb4ecf35fd5aa72275e25dfb (patch) | |
| tree | e1fba3f7c757e35d28e0f6873efdffbb9dc8abe3 /src | |
| parent | 2adfdbcbca0a37332b8036b33b57643407c826b4 (diff) | |
| download | emacs-52ad5ecc6c464a57eb4ecf35fd5aa72275e25dfb.tar.gz emacs-52ad5ecc6c464a57eb4ecf35fd5aa72275e25dfb.zip | |
(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 ae675bb310e..dabc03b2a55 100644 --- a/src/abbrev.c +++ b/src/abbrev.c | |||
| @@ -592,9 +592,9 @@ of the form (ABBREVNAME EXPANSION HOOK USECOUNT SYSTEMFLAG). | |||
| 592 | } | 592 | } |
| 593 | CHECK_VECTOR (table); | 593 | CHECK_VECTOR (table); |
| 594 | 594 | ||
| 595 | for (; !NILP (definitions); definitions = Fcdr (definitions)) | 595 | for (; CONSP (definitions); definitions = XCDR (definitions)) |
| 596 | { | 596 | { |
| 597 | elt = Fcar (definitions); | 597 | elt = XCAR (definitions); |
| 598 | name = Fcar (elt); elt = Fcdr (elt); | 598 | name = Fcar (elt); elt = Fcdr (elt); |
| 599 | exp = Fcar (elt); elt = Fcdr (elt); | 599 | exp = Fcar (elt); elt = Fcdr (elt); |
| 600 | hook = Fcar (elt); elt = Fcdr (elt); | 600 | hook = Fcar (elt); elt = Fcdr (elt); |