From 46e7e6b0bd41d70c2fe99f9c41e0478a107e1aac Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 15:48:47 +0000
Subject: [PATCH] * alloc.c (make_event_array): Use SSET for storing into a
 string.

---
 src/alloc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/alloc.c b/src/alloc.c
index 80b63345459..470cb9277bb 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2701,10 +2701,10 @@ make_event_array (nargs, args)
     result = Fmake_string (make_number (nargs), make_number (0));
     for (i = 0; i < nargs; i++)
       {
-	SREF (result, i) = XINT (args[i]);
+	SSET (result, i, XINT (args[i]));
 	/* Move the meta bit to the right place for a string char.  */
 	if (XINT (args[i]) & CHAR_META)
-	  SREF (result, i) |= 0x80;
+	  SSET (result, i, SREF (result, i) | 0x80);
       }
     
     return result;
-- 
2.39.2