diff options
| author | Ken Raeburn | 2009-06-20 23:23:55 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2009-06-20 23:23:55 +0000 |
| commit | 4735b74e57b826ce25c9b03000eb181077a7c133 (patch) | |
| tree | 67a5682fe30bee827bf517ad514fedf276489c16 /src/process.c | |
| parent | 2bb4a75381cc916d4e437df6c0090af0a854ad8b (diff) | |
| download | emacs-4735b74e57b826ce25c9b03000eb181077a7c133.tar.gz emacs-4735b74e57b826ce25c9b03000eb181077a7c133.zip | |
(status_message): Pass Faset index argument as a lisp object, so as to work
with USE_LISP_UNION_TYPE.
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 2 |
1 files changed, 1 insertions, 1 deletions
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) | |||
| 479 | c1 = STRING_CHAR ((char *) SDATA (string), 0); | 479 | c1 = STRING_CHAR ((char *) SDATA (string), 0); |
| 480 | c2 = DOWNCASE (c1); | 480 | c2 = DOWNCASE (c1); |
| 481 | if (c1 != c2) | 481 | if (c1 != c2) |
| 482 | Faset (string, 0, make_number (c2)); | 482 | Faset (string, make_number (0), make_number (c2)); |
| 483 | } | 483 | } |
| 484 | string2 = build_string (coredump ? " (core dumped)\n" : "\n"); | 484 | string2 = build_string (coredump ? " (core dumped)\n" : "\n"); |
| 485 | return concat2 (string, string2); | 485 | return concat2 (string, string2); |