From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 9 Jan 1996 03:01:48 +0000 (+0000)
Subject: (Fdefine_abbrev_table): Fix previous change.
X-Git-Tag: emacs-19.34~1762
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b9d613cc8a74e91de3bbdf3e01fbc74f42477840;p=emacs.git

(Fdefine_abbrev_table): Fix previous change.
---

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);