From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 15:48:59 +0000 (+0000)
Subject: * casefiddle.c (casify_object): Use SSET.
X-Git-Tag: ttn-vms-21-2-B4~14094
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5b81cd81dc8e07bb6377fae8a6904191426f893;p=emacs.git

* casefiddle.c (casify_object): Use SSET.
---

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 78c3bb2e8c7..67862365a30 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -90,7 +90,7 @@ casify_object (flag, obj)
 		  : ! SINGLE_BYTE_CHAR_P (c))
 		break;
 
-	      SREF (obj, i) = c;
+	      SSET (obj, i, c);
 	      if ((int) flag >= (int) CASE_CAPITALIZE)
 		inword = SYNTAX (c) == Sword;
 	      i++;