Mercurial > emacs

changeset 23067:ac788ee31080

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ccl_coding_driver): Setup ccl->last_block properly. (setup_coding_system): Correctly setup `valid_codes' member.
author Kenichi Handa <handa@m17n.org>
date Tue, 18 Aug 1998 13:15:18 +0000
parents d40f9a8d7779
children ae33b925b20f
files src/coding.c
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/coding.c	Tue Aug 18 13:15:18 1998 +0000
+++ b/src/coding.c	Tue Aug 18 13:15:18 1998 +0000
@@ -3086,8 +3086,9 @@
 	  {
 	    Lisp_Object this;
 
-	    for (this = XCONS (val)->car; CONSP (val); val = XCONS (val)->cdr)
+	    for (; CONSP (val); val = XCONS (val)->cdr)
 	      {
+		this = XCONS (val)->car;
 		if (INTEGERP (this)
 		    && XINT (this) >= 0 && XINT (this) < 256)
 		  coding->spec.ccl.valid_codes[XINT (this)] = 1;
@@ -3606,6 +3607,9 @@
     = encodep ? &coding->spec.ccl.encoder : &coding->spec.ccl.decoder;
   int result;
 
+  if (encodep)
+    ccl->last_block = coding->mode & CODING_MODE_LAST_BLOCK;
+
   coding->produced = ccl_driver (ccl, source, destination,
 				 src_bytes, dst_bytes, &(coding->consumed));
   if (encodep)