(status_message): Pass Faset index argument as a lisp object, so as to work

with USE_LISP_UNION_TYPE.

2 files changed, 6 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index db8fb52a478..4ae24ee851c 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2009-06-20  Ken Raeburn  <raeburn@raeburn.org>
+
+        * process.c (status_message): Pass Faset index argument as a lisp
+        object, so as to work with USE_LISP_UNION_TYPE.
+
 2009-06-19  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
         * coding.c (Ffind_coding_systems_region_internal):
diff --git a/src/process.c b/src/process.c
index 08030c944df..2fdb2c2cbb0 100644
--- a/src/process.c
+++ b/src/process.c
@@ -479,7 +479,7 @@ status_message (p)
           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);