1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00

(modify_event_symbol): If a name_table elt is null,

generate a name to use.  Don't crash.
This commit is contained in:
Richard M. Stallman 1993-05-24 22:58:54 +00:00
parent 6291710025
commit d1f504609f

View File

@ -2739,7 +2739,14 @@ modify_event_symbol (symbol_num, modifiers, symbol_kind, name_table,
if (NILP (*slot))
{
/* No; let's create it. */
*slot = intern (name_table[symbol_num]);
if (name_table[symbol_num])
*slot = intern (name_table[symbol_num]);
else
{
char buf[20];
sprintf (buf, "key-%d", symbol_num);
*slot = intern (buf);
}
/* Fill in the cache entries for this symbol; this also
builds the Qevent_symbol_elements property, which the user