From b64b4075ffbba9500bb67b7a7e5fbbedab2fdf8d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 15 Apr 1994 21:58:19 +0000 Subject: [PATCH] (modify_event_symbol): Use the cdr of the alist entry. Whenever value is nil, intern a new symbol. --- src/keyboard.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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); -- 2.39.5