From aa3f9fb7d5e3e02c2f02b7b3c7fcbdeab4bad59a Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Fri, 7 Aug 1998 19:52:37 +0000
Subject: [PATCH] By default, use a two-column index.

---
 Doc/perl/l2hinit.perl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 2e11a50aa32..fd1c281c605 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -31,6 +31,9 @@ $BODYTEXT = 'bgcolor="#ffffff"';
 $CHILDLINE = "\n<p><hr>\n";
 $VERBOSITY = 0;
 
+# default # of columns for the index
+$INDEX_COLUMNS = 2;
+
 
 # A little painful, but lets us clean up the top level directory a little,
 # and not be tied to the current directory (as far as I can tell).
@@ -192,7 +195,7 @@ sub make_index_entry {
 
 sub insert_index{
     my($mark,$datafile) = @_;
-    my $index = `$myrootdir/tools/buildindex.py $datafile`;
+    my $index = `$myrootdir/tools/buildindex.py --columns $INDEX_COLUMNS $datafile`;
     s/$mark/$index/;
 }