From: Fred Drake <fdrake@acm.org>
Date: Fri, 19 Feb 1999 23:04:59 +0000 (+0000)
Subject: do_cmd_arabic():  Override the l2h-provided version to remove that
X-Git-Tag: v1.5.2c1~304
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=50cdd97ec4ab11620a5d55d2f760afe51280eb71;p=thirdparty%2FPython%2Fcpython.git

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 ec5be08cd549..4ec0fb478b80 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -221,6 +221,13 @@ sub img_tag {
 }
 
 
+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) = @_;