Commit b9d613cc authored by Karl Heuer's avatar Karl Heuer
Browse files

(Fdefine_abbrev_table): Fix previous change.

parent 55cc974d
...@@ -462,8 +462,8 @@ DEFUN ("define-abbrev-table", Fdefine_abbrev_table, Sdefine_abbrev_table, ...@@ -462,8 +462,8 @@ DEFUN ("define-abbrev-table", Fdefine_abbrev_table, Sdefine_abbrev_table,
"Define TABLENAME (a symbol) as an abbrev table name.\n\ "Define TABLENAME (a symbol) as an abbrev table name.\n\
Define abbrevs in it according to DEFINITIONS, which is a list of elements\n\ Define abbrevs in it according to DEFINITIONS, which is a list of elements\n\
of the form (ABBREVNAME EXPANSION HOOK USECOUNT).") of the form (ABBREVNAME EXPANSION HOOK USECOUNT).")
(tablename, defns) (tablename, definitions)
Lisp_Object tablename, defns; Lisp_Object tablename, definitions;
{ {
Lisp_Object name, exp, hook, count; Lisp_Object name, exp, hook, count;
Lisp_Object table, elt; Lisp_Object table, elt;
...@@ -474,12 +474,11 @@ of the form (ABBREVNAME EXPANSION HOOK USECOUNT).") ...@@ -474,12 +474,11 @@ of the form (ABBREVNAME EXPANSION HOOK USECOUNT).")
{ {
table = Fmake_abbrev_table (); table = Fmake_abbrev_table ();
Fset (tablename, table); Fset (tablename, table);
Vabbrev_table_name_list = Vabbrev_table_name_list = Fcons (tablename, Vabbrev_table_name_list);
Fcons (tablename, Vabbrev_table_name_list);
} }
CHECK_VECTOR (table, 0); CHECK_VECTOR (table, 0);
for (;!NILP (definitions); definitions = Fcdr (definitions)) for (; !NILP (definitions); definitions = Fcdr (definitions))
{ {
elt = Fcar (definitions); elt = Fcar (definitions);
name = Fcar (elt); elt = Fcdr (elt); name = Fcar (elt); elt = Fcdr (elt);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment