From 4735b74e57b826ce25c9b03000eb181077a7c133 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Sat, 20 Jun 2009 23:23:55 +0000 Subject: [PATCH] (status_message): Pass Faset index argument as a lisp object, so as to work with USE_LISP_UNION_TYPE. --- src/ChangeLog | 5 +++++ src/process.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * 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 * 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); -- 2.39.2