Commit 4735b74e authored by Ken Raeburn's avatar Ken Raeburn

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

with USE_LISP_UNION_TYPE.
parent 2bb4a753
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):
......
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment