aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/abbrev.c9
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\
463Define abbrevs in it according to DEFINITIONS, which is a list of elements\n\ 463Define abbrevs in it according to DEFINITIONS, which is a list of elements\n\
464of the form (ABBREVNAME EXPANSION HOOK USECOUNT).") 464of 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);