From ec9200a2fed3436b405fbc24587e0a7e2b485f6f Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Fri, 27 Feb 1998 16:56:55 +0000
Subject: [PATCH] &do_cmd_deprecated:  New function.

Attempt to get \setindexsubitem{} handled at the right time under LaTeX2HTML
98.1; should still be fine under 97.1*.
---
 Doc/myformat.perl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/Doc/myformat.perl b/Doc/myformat.perl
index da9dbd1a84f..1a18e84860d 100644
--- a/Doc/myformat.perl
+++ b/Doc/myformat.perl
@@ -150,6 +150,17 @@ sub do_cmd_strong{
     $_;
 }
 
+sub do_cmd_deprecated{
+    # two parameters:  \deprecated{version}{whattodo}
+    local($_) = @_;
+    local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
+    local($release,$action) = ($2, $4);
+    s/$next_pair_pr_rx$any_next_pair_pr_rx3//;
+    "<b>Deprecated since release $release.</b>"
+      . "\n$action<p>"
+      . $_;
+}
+
 # file and samp are at the end of this file since they screw up fontlock.
 
 # index commands
@@ -166,6 +177,9 @@ sub do_cmd_setindexsubitem{
     $INDEX_SUBITEM = $2;
     $_;
 }
+if (defined &process_commands_wrap_deferred) {
+    &process_commands_wrap_deferred("setindexsubitem \# {}\n");
+}
 
 sub do_cmd_indexii{
     local($_) = @_;