Mercurial > emacs
diff src/process.c @ 103496:e13621e7689e
(status_message): Pass Faset index argument as a lisp object, so as to work
with USE_LISP_UNION_TYPE.
| author | Ken Raeburn <raeburn@raeburn.org> |
|---|---|
| date | Sat, 20 Jun 2009 23:23:48 +0000 |
| parents | c849cd055fab |
| children | 70e98b9afe06 |
line wrap: on
line diff
--- 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);