From 3758c746e01a451ce88cfe398f19747951e71bac Mon Sep 17 00:00:00 2001
From: Peter Verthez <Peter.Verthez@advalvas.be>
Date: Sat, 24 Nov 2001 22:26:08 +0000
Subject: [PATCH] Change encoding on HEAD.CHAR tag.

---
 gedcom.y | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gedcom.y b/gedcom.y
index 8aad4fd..b54286c 100644
--- a/gedcom.y
+++ b/gedcom.y
@@ -123,6 +123,7 @@
 %{
 #include "gedcom.h"
 #include "multilex.h"
+#include "encoding.h"
 
 int  count_level    = 0;
 int  fail           = 0;
@@ -568,7 +569,8 @@ head_gedc_form_sect : OPEN DELIM TAG_FORM mand_line_item
 
 /* HEAD.CHAR */
 head_char_sect : OPEN DELIM TAG_CHAR mand_line_item 
-                 { START(CHAR) }
+                 { if (open_conv_to_internal($4) == 0) YYERROR;
+		   START(CHAR) }
                  head_char_subs
 		 { CHECK0 }
                  CLOSE
-- 
2.30.2