(modify_event_symbol): Add properly to *symbol_table.

This commit is contained in:
Richard M. Stallman 1996-06-27 08:16:22 +00:00
parent e1775344cd
commit 4205cb08b6

View file

@ -4485,7 +4485,7 @@ modify_event_symbol (symbol_num, modifiers, symbol_kind, name_alist,
}
if (CONSP (*symbol_table))
*symbol_table = Fcons (value, *symbol_table);
*symbol_table = Fcons (Fcons (symbol_int, value), *symbol_table);
else
XVECTOR (*symbol_table)->contents[symbol_num] = value;