Parent Directory | Revision Log | Patch
revision 1.76.4.3 by miles, Fri Nov 21 00:36:16 2003 UTC | revision 1.76.4.4 by miles, Tue Jul 6 09:14:34 2004 UTC | |
---|---|---|
# | Line 2196 See the documentation of `define-ccl-pro | Line 2196 See the documentation of `define-ccl-pro |
2196 | produced = ccl_driver (&ccl, SDATA (str), outbuf, | produced = ccl_driver (&ccl, SDATA (str), outbuf, |
2197 | SBYTES (str), outbufsize, (int *) 0); | SBYTES (str), outbufsize, (int *) 0); |
2198 | for (i = 0; i < 8; i++) | for (i = 0; i < 8; i++) |
2199 | XSET (AREF (status, i), Lisp_Int, ccl.reg[i]); | ASET (status, i, make_number (ccl.reg[i])); |
2200 | XSETINT (AREF (status, 8), ccl.ic); | ASET (status, 8, make_number (ccl.ic)); |
2201 | UNGCPRO; | UNGCPRO; |
2202 | ||
2203 | if (NILP (unibyte_p)) | if (NILP (unibyte_p)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |