(modify_event_symbol): Use the cdr of the alist entry.

Whenever value is nil, intern a new symbol.

(modify_event_symbol): Use the cdr of the alist entry.
Whenever value is nil, intern a new symbol.
b64b4075 · Richard M. Stallman · 4e0e7d8e · b64b4075
Commit b64b4075 authored Apr 15, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

src/keyboard.c src/keyboard.c +3 -2

No files found.
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3195,10 +3195,11 @@ modify_event_symbol (symbol_num, modifiers, symbol_kind, name_alist,
    {
      /* No; let's create it.  */
      if (!NILP (name_alist))
-	value = Fassq (symbol_int, name_alist);
+	value = Fcdr_safe (Fassq (symbol_int, name_alist));
      else if (name_table[symbol_num])
 	value = intern (name_table[symbol_num]);
-      else
+
+      if (NILP (value))
 	{
 	  char buf[20];
 	  sprintf (buf, "key-%d", symbol_num);