diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-05-14 12:41:32 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-05-14 12:41:32 +0000 |
| commit | 866ebf45ca1b8eaf1c06886d04e29ad56b1e0139 (patch) | |
| tree | aa38403444466582e5dc3d39872a79faeb9b2520 /src/ccl.c | |
| parent | ddda21d349fe087a3c6d72a0083b410dd7569c43 (diff) | |
| download | emacs-866ebf45ca1b8eaf1c06886d04e29ad56b1e0139.tar.gz | |
(Fccl_execute_on_string): Fix setting elements of STATUS.
Diffstat (limited to 'src/ccl.c')
| -rw-r--r-- | src/ccl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ccl.c b/src/ccl.c index 81e90319e52..4c3528075b4 100644 --- a/src/ccl.c +++ b/src/ccl.c @@ -2196,8 +2196,8 @@ See the documentation of `define-ccl-program' for the detail of CCL program. */ produced = ccl_driver (&ccl, SDATA (str), outbuf, SBYTES (str), outbufsize, (int *) 0); for (i = 0; i < 8; i++) - XSET (AREF (status, i), Lisp_Int, ccl.reg[i]); - XSETINT (AREF (status, 8), ccl.ic); + ASET (status, i, make_number (ccl.reg[i])); + ASET (status, 8, make_number (ccl.ic)); UNGCPRO; if (NILP (unibyte_p)) |