diff options
| -rw-r--r-- | src/abbrev.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/abbrev.c b/src/abbrev.c index 7affc589491..683a783b1bf 100644 --- a/src/abbrev.c +++ b/src/abbrev.c | |||
| @@ -462,8 +462,8 @@ DEFUN ("define-abbrev-table", Fdefine_abbrev_table, Sdefine_abbrev_table, | |||
| 462 | "Define TABLENAME (a symbol) as an abbrev table name.\n\ | 462 | "Define TABLENAME (a symbol) as an abbrev table name.\n\ |
| 463 | Define abbrevs in it according to DEFINITIONS, which is a list of elements\n\ | 463 | Define abbrevs in it according to DEFINITIONS, which is a list of elements\n\ |
| 464 | of the form (ABBREVNAME EXPANSION HOOK USECOUNT).") | 464 | of the form (ABBREVNAME EXPANSION HOOK USECOUNT).") |
| 465 | (tablename, defns) | 465 | (tablename, definitions) |
| 466 | Lisp_Object tablename, defns; | 466 | Lisp_Object tablename, definitions; |
| 467 | { | 467 | { |
| 468 | Lisp_Object name, exp, hook, count; | 468 | Lisp_Object name, exp, hook, count; |
| 469 | Lisp_Object table, elt; | 469 | Lisp_Object table, elt; |
| @@ -474,12 +474,11 @@ of the form (ABBREVNAME EXPANSION HOOK USECOUNT).") | |||
| 474 | { | 474 | { |
| 475 | table = Fmake_abbrev_table (); | 475 | table = Fmake_abbrev_table (); |
| 476 | Fset (tablename, table); | 476 | Fset (tablename, table); |
| 477 | Vabbrev_table_name_list = | 477 | Vabbrev_table_name_list = Fcons (tablename, Vabbrev_table_name_list); |
| 478 | Fcons (tablename, Vabbrev_table_name_list); | ||
| 479 | } | 478 | } |
| 480 | CHECK_VECTOR (table, 0); | 479 | CHECK_VECTOR (table, 0); |
| 481 | 480 | ||
| 482 | for (;!NILP (definitions); definitions = Fcdr (definitions)) | 481 | for (; !NILP (definitions); definitions = Fcdr (definitions)) |
| 483 | { | 482 | { |
| 484 | elt = Fcar (definitions); | 483 | elt = Fcar (definitions); |
| 485 | name = Fcar (elt); elt = Fcdr (elt); | 484 | name = Fcar (elt); elt = Fcdr (elt); |