Mercurial > emacs
changeset 14098:aa682cae5c89
(Fdefine_abbrev_table): Fix previous change.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 09 Jan 1996 03:01:48 +0000 |
| parents | 91c55574973f |
| children | 6215cbb7f702 |
| files | src/abbrev.c |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/abbrev.c Tue Jan 09 02:55:53 1996 +0000 +++ b/src/abbrev.c Tue Jan 09 03:01:48 1996 +0000 @@ -462,8 +462,8 @@ "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 @@ { 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);