From 0cd602133900b444e80dac9ac7314809d01c28b0 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Tue, 11 Apr 2000 18:46:59 +0000
Subject: [PATCH] do_cmd_longprogramopt():  New function.

---
 Doc/perl/python.perl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 35d4da9a6a93..d4e8ea82a670 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -150,6 +150,9 @@ sub do_cmd_program{
     return use_wrappers(@_[0], '<b class="program">', '</b>'); }
 sub do_cmd_programopt{
     return use_wrappers(@_[0], '<b class="programopt">', '</b>'); }
+sub do_cmd_longprogramopt{
+    # note that the --- will be later converted to -- by LaTeX2HTML
+    return use_wrappers(@_[0], '<b class="programopt">---', '</b>'); }
 sub do_cmd_email{
     return use_wrappers(@_[0], '<span class="email">', '</span>'); }
 sub do_cmd_mimetype{