Mercurial > emacs

comparison src/keyboard.c @ 88548:d8ddbdfc33da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(modify_event_symbol): Fix print format for 64-bit systems.
author Dave Love <fx@gnu.org>
date Fri, 17 May 2002 16:36:03 +0000
parents bedac2738d2c
children 8f9b9dfed743
comparison
equal deleted inserted replaced
88547:ef1b2fbc435f 88548:d8ddbdfc33da
5882 /* No; let's create it. */ 5882 /* No; let's create it. */
5883 if (CONSP (name_alist_or_stem)) 5883 if (CONSP (name_alist_or_stem))
5884 value = Fcdr_safe (Fassq (symbol_int, name_alist_or_stem)); 5884 value = Fcdr_safe (Fassq (symbol_int, name_alist_or_stem));
5885 else if (STRINGP (name_alist_or_stem)) 5885 else if (STRINGP (name_alist_or_stem))
5886 { 5886 {
5887 int len = STRING_BYTES (XSTRING (name_alist_or_stem)); 5887 int len = STRING_BYTES (XSTRING (name_alist_or_stem));
5888 char *buf = (char *) alloca (len + 50); 5888 char *buf = (char *) alloca (len + 50);
5889 sprintf (buf, "%s-%d", XSTRING (name_alist_or_stem)->data, 5889
5890 XINT (symbol_int) + 1); 5890 if (sizeof (int) == sizeof (EMACS_INT))
5891 sprintf (buf, "%s-%d", XSTRING (name_alist_or_stem)->data,
5892 XINT (symbol_int) + 1);
5893 else if (sizeof (long) == sizeof (EMACS_INT))
5894 sprintf (buf, "%s-%ld", XSTRING (name_alist_or_stem)->data,
5895 XINT (symbol_int) + 1);
5896 else
5897 abort ();
5891 value = intern (buf); 5898 value = intern (buf);
5892 } 5899 }
5893 else if (name_table != 0 && name_table[symbol_num]) 5900 else if (name_table != 0 && name_table[symbol_num])
5894 value = intern (name_table[symbol_num]); 5901 value = intern (name_table[symbol_num]);
5895 5902