Mercurial > emacs

diff src/ccl.c @ 55590:9ef8d3f3973e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fccl_execute_on_string): Fix setting elements of STATUS.
author Kenichi Handa <handa@m17n.org>
date Fri, 14 May 2004 12:41:32 +0000
parents 8787289602d1
children bcdeaf1d58fc
line wrap: on
line diff
--- a/src/ccl.c	Fri May 14 10:04:16 2004 +0000
+++ b/src/ccl.c	Fri May 14 12:41:32 2004 +0000
@@ -2196,8 +2196,8 @@
   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))