# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1029979119 0
# Node ID 7a6ebd6b0c38bea0b5f7044da736d8ab5049c727
# Parent  556a246801fb4f2d40fce1072f8dfba13a0b67f4
(base64_encode_1): Handle eight-bit chars correctly.

diff -r 556a246801fb -r 7a6ebd6b0c38 src/fns.c
--- a/src/fns.c	Thu Aug 22 01:08:26 2002 +0000
+++ b/src/fns.c	Thu Aug 22 01:18:39 2002 +0000
@@ -3047,7 +3047,9 @@
       if (multibyte)
 	{
 	  c = STRING_CHAR_AND_LENGTH (from + i, length - i, bytes);
-	  if (c >= 256)
+	  if (CHAR_BYTE8_P (c))
+	    c = CHAR_TO_BYTE8 (c);
+	  else if (c >= 256)
 	    return -1;
 	  i += bytes;
 	}
@@ -3085,7 +3087,9 @@
       if (multibyte)
 	{
 	  c = STRING_CHAR_AND_LENGTH (from + i, length - i, bytes);
-	  if (c >= 256)
+	  if (CHAR_BYTE8_P (c))
+	    c = CHAR_TO_BYTE8 (c);
+	  else if (c >= 256)
 	    return -1;
 	  i += bytes;
 	}
@@ -3107,7 +3111,9 @@
       if (multibyte)
 	{
 	  c = STRING_CHAR_AND_LENGTH (from + i, length - i, bytes);
-	  if (c >= 256)
+	  if (CHAR_BYTE8_P (c))
+	    c = CHAR_TO_BYTE8 (c);
+	  else if (c >= 256)
 	    return -1;
 	  i += bytes;
 	}