do_cmd_arabic(): Override the l2h-provided version to remove that
obnoxious <SPAN CLASS="arabic">...</SPAN> markup.
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index ec5be08..4ec0fb4 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -221,6 +221,13 @@
}
+sub do_cmd_arabic {
+ # get rid of that nasty <SPAN CLASS="arabic">...</SPAN>
+ local($ctr, $val, $id, $_) = &read_counter_value(@_[0]);
+ return ($val ? &farabic($val) : "0") . $_;
+}
+
+
sub gen_index_id {
# this is used to ensure common index key generation and a stable sort
my($str,$extra) = @_;