changeset 3042:793f7e0dc66b

(modify_event_symbol): If a name_table elt is null, generate a name to use. Don't crash.
author Richard M. Stallman <rms@gnu.org>
date Mon, 24 May 1993 22:58:54 +0000
parents 200a7b012253
children 29fe3ea604a2
files src/keyboard.c
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Mon May 24 22:35:11 1993 +0000
+++ b/src/keyboard.c	Mon May 24 22:58:54 1993 +0000
@@ -2739,7 +2739,14 @@
   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