Mercurial > emacs

changeset 6894:34435700529d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(modify_event_symbol): Use the cdr of the alist entry. Whenever value is nil, intern a new symbol.
author Richard M. Stallman <rms@gnu.org>
date Fri, 15 Apr 1994 21:58:19 +0000
parents b97b29f3ea7a
children 4b8dc0a39b47
files src/keyboard.c
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Fri Apr 15 21:55:25 1994 +0000
+++ b/src/keyboard.c	Fri Apr 15 21:58:19 1994 +0000
@@ -3195,10 +3195,11 @@
     {
       /* 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);