# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1026834569 0
# Node ID 5360a8d2f69407b32b2b7c0d54b21b739da69157
# Parent  d7f3f0434d433645963f4455010fde6ad820ac7a
* keyboard.c (Fevent_convert_list): Use SREF.

diff -r d7f3f0434d43 -r 5360a8d2f694 src/keyboard.c
--- a/src/keyboard.c	Tue Jul 16 15:49:24 2002 +0000
+++ b/src/keyboard.c	Tue Jul 16 15:49:29 2002 +0000
@@ -6045,7 +6045,7 @@
 
   /* Let the symbol A refer to the character A.  */
   if (SYMBOLP (base) && SCHARS (SYMBOL_NAME (base)) == 1)
-    XSETINT (base, SDATA (SYMBOL_NAME (base))[0]);
+    XSETINT (base, SREF (SYMBOL_NAME (base), 0));
 
   if (INTEGERP (base))
     {