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

* process.c (status_message): Use SSET.
---

diff --git a/src/process.c b/src/process.c
index 3554aa2f9cb..c4d95c6074f 100644
--- a/src/process.c
+++ b/src/process.c
@@ -419,7 +419,7 @@ status_message (status)
 	signame = "unknown";
       string = build_string (signame);
       string2 = build_string (coredump ? " (core dumped)\n" : "\n");
-      SREF (string, 0) = DOWNCASE (SREF (string, 0));
+      SSET (string, 0, DOWNCASE (SREF (string, 0)));
       return concat2 (string, string2);
     }
   else if (EQ (symbol, Qexit))