mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 06:50:46 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Whenever value is nil, intern a new symbol.
This commit is contained in:
Richard M. Stallman 1994-04-15 21:58:19 +00:00
parent 4e0e7d8ec9
commit b64b4075ff
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/keyboard.c
View file

@ -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);