/[emacs]/emacs/src/ccl.c
ViewVC logotype

Diff of /emacs/src/ccl.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.78 by monnier, Tue Jul 9 23:00:17 2002 UTC revision 1.79 by raeburn, Mon Jul 15 00:00:35 2002 UTC
# Line 2198  See the documentation of `define-ccl-pro Line 2198  See the documentation of `define-ccl-pro
2198        if (ccl.ic < i && i < ccl.size)        if (ccl.ic < i && i < ccl.size)
2199          ccl.ic = i;          ccl.ic = i;
2200      }      }
2201    outbufsize = STRING_BYTES (XSTRING (str)) * ccl.buf_magnification + 256;    outbufsize = SBYTES (str) * ccl.buf_magnification + 256;
2202    outbuf = (char *) xmalloc (outbufsize);    outbuf = (char *) xmalloc (outbufsize);
2203    ccl.last_block = NILP (contin);    ccl.last_block = NILP (contin);
2204    ccl.multibyte = STRING_MULTIBYTE (str);    ccl.multibyte = STRING_MULTIBYTE (str);
2205    produced = ccl_driver (&ccl, XSTRING (str)->data, outbuf,    produced = ccl_driver (&ccl, SDATA (str), outbuf,
2206                           STRING_BYTES (XSTRING (str)), outbufsize, (int *) 0);                           SBYTES (str), outbufsize, (int *) 0);
2207    for (i = 0; i < 8; i++)    for (i = 0; i < 8; i++)
2208      XSET (AREF (status, i), Lisp_Int, ccl.reg[i]);      XSET (AREF (status, i), Lisp_Int, ccl.reg[i]);
2209    XSETINT (AREF (status, 8), ccl.ic);    XSETINT (AREF (status, 8), ccl.ic);

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26