From b9d613cc8a74e91de3bbdf3e01fbc74f42477840 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 9 Jan 1996 03:01:48 +0000 Subject: [PATCH] (Fdefine_abbrev_table): Fix previous change. --- src/abbrev.c | 9 ++++----- 1 file 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, "Define TABLENAME (a symbol) as an abbrev table name.\n\ Define abbrevs in it according to DEFINITIONS, which is a list of elements\n\ of the form (ABBREVNAME EXPANSION HOOK USECOUNT).") - (tablename, defns) - Lisp_Object tablename, defns; + (tablename, definitions) + Lisp_Object tablename, definitions; { Lisp_Object name, exp, hook, count; Lisp_Object table, elt; @@ -474,12 +474,11 @@ of the form (ABBREVNAME EXPANSION HOOK USECOUNT).") { table = Fmake_abbrev_table (); Fset (tablename, table); - Vabbrev_table_name_list = - Fcons (tablename, Vabbrev_table_name_list); + Vabbrev_table_name_list = Fcons (tablename, Vabbrev_table_name_list); } CHECK_VECTOR (table, 0); - for (;!NILP (definitions); definitions = Fcdr (definitions)) + for (; !NILP (definitions); definitions = Fcdr (definitions)) { elt = Fcar (definitions); name = Fcar (elt); elt = Fcdr (elt); -- 2.39.2