+int write_encoding(Gedcom_write_hndl hndl,
+ int level, char* xref, char* tag, char* value)
+{
+ if (strcmp(value, charset))
+ gedcom_warning(_("Forcing HEAD.CHAR value to '%s'"), charset);
+ return write_simple(hndl, level, xref, tag, charset);
+}
+