From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 15 Apr 1994 21:58:19 +0000 (+0000)
Subject: (modify_event_symbol): Use the cdr of the alist entry.
X-Git-Tag: emacs-19.34~8959
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b64b4075ffbba9500bb67b7a7e5fbbedab2fdf8d;p=emacs.git

(modify_event_symbol): Use the cdr of the alist entry.
Whenever value is nil, intern a new symbol.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 108333e37e6..d3b153f1d6e 100644
--- 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);