From 632310e338ce717487b1ad22d4fb314f384efa18 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 18 Sep 2008 07:18:07 +0000
Subject: [PATCH] (struct decoding_stream): Add new member `bom_flag' in
 XEmacs CHISE. (reset_decoding_stream): Ignore U+FEFF in the
 beginning of stream in XEmacs CHISE.

---
 src/text-coding.c |   31 +++++++++++++++++++++++++++++--
 1 file changed, 29 insertions(+), 2 deletions(-)

diff --git a/src/text-coding.c b/src/text-coding.c
index b28c2d7..79c9dcb 100644
--- a/src/text-coding.c
+++ b/src/text-coding.c
@@ -2320,6 +2320,7 @@ struct decoding_stream
   unsigned char counter;
 #endif
 #ifdef UTF2000
+  char bom_flag;
   unsigned char er_counter;
   unsigned char er_buf[ER_BUF_SIZE];
 
@@ -2464,6 +2465,7 @@ reset_decoding_stream (struct decoding_stream *str)
   str->counter = 0;
 #endif /* MULE */
 #ifdef UTF2000
+  str->bom_flag = 0;
   str->er_counter = 0;
   str->combined_char_count = 0;
   str->combining_table = Qnil;
@@ -4504,6 +4506,7 @@ decode_coding_utf8 (Lstream *decoding, const Extbyte *src,
   eol_type_t eol_type	= str->eol_type;
   unsigned char counter	= str->counter;
 #ifdef UTF2000
+  int bom_flag = str->bom_flag;
   Lisp_Object ccs
     = CODING_SYSTEM_ISO2022_INITIAL_CHARSET (DECODING_STREAM_DATA
 					     (decoding)->codesys, 0);
@@ -4519,11 +4522,20 @@ decode_coding_utf8 (Lstream *decoding, const Extbyte *src,
 	      COMPOSE_FLUSH_CHARS (str, dst);
 	      decode_flush_er_chars (str, dst);
 	      DECODE_HANDLE_EOL_TYPE (eol_type, c, flags, dst);
+
+	      if ( bom_flag == 0 )
+		bom_flag = -1;
+
 	      DECODE_ADD_UCS_CHAR (c, dst);
 	    }
 	  else if ( c < 0xC0 )
-	    /* decode_add_er_char (str, c, dst); */
-	    COMPOSE_ADD_CHAR (str, c, dst);
+	    {	      
+	      if ( bom_flag == 0 )
+		bom_flag = -1;
+
+	      /* decode_add_er_char (str, c, dst); */
+	      COMPOSE_ADD_CHAR (str, c, dst);
+	    }
 	  else
 	    {
 	      /* decode_flush_er_chars (str, dst); */
@@ -4561,6 +4573,17 @@ decode_coding_utf8 (Lstream *decoding, const Extbyte *src,
 	    {
 	      Emchar char_id;
 
+	      if ( bom_flag == 0 )
+		{
+		  if ( cpos == 0xFEFF )
+		    {
+		      bom_flag = 1;
+		      goto decoded;
+		    }
+		  else
+		    bom_flag = -1;
+		}
+
 	      if (!NILP (ccs))
 		{
 		  char_id = decode_defined_char (ccs, cpos, 0);
@@ -4571,6 +4594,7 @@ decode_coding_utf8 (Lstream *decoding, const Extbyte *src,
 	      else
 		char_id = cpos;
 	      COMPOSE_ADD_CHAR (str, char_id, dst);
+	    decoded:
 	      cpos = 0;
 	      counter = 0;
 	    }
@@ -4603,6 +4627,9 @@ decode_coding_utf8 (Lstream *decoding, const Extbyte *src,
   str->flags	= flags;
   str->cpos	= cpos;
   str->counter	= counter;
+#ifdef UTF2000
+  str->bom_flag = bom_flag;
+#endif
 }
 
 void
-- 
1.7.10.4