# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1245540228 0
# Node ID e13621e7689e12d776ff3f962a5ff4edace61495
# Parent  553e282e658d2a13d6f293b0a96f0a85d45c9db7
(status_message): Pass Faset index argument as a lisp object, so as to work
with USE_LISP_UNION_TYPE.

diff -r 553e282e658d -r e13621e7689e src/process.c
--- a/src/process.c	Fri Jun 19 17:10:49 2009 +0000
+++ b/src/process.c	Sat Jun 20 23:23:48 2009 +0000
@@ -479,7 +479,7 @@
 	  c1 = STRING_CHAR ((char *) SDATA (string), 0);
 	  c2 = DOWNCASE (c1);
 	  if (c1 != c2)
-	    Faset (string, 0, make_number (c2));
+	    Faset (string, make_number (0), make_number (c2));
 	}
       string2 = build_string (coredump ? " (core dumped)\n" : "\n");
       return concat2 (string, string2);