From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 15:49:29 +0000 (+0000)
Subject: * keyboard.c (Fevent_convert_list): Use SREF.
X-Git-Tag: ttn-vms-21-2-B4~14087
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4069e0f8c82785eb144071dd46a53a4ae22d62bd;p=emacs.git

* keyboard.c (Fevent_convert_list): Use SREF.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 9fea4df7538..4866c9d636b 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6045,7 +6045,7 @@ has the same base event type and all the specified modifiers.  */)
 
   /* 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))
     {