Support column lists, by only extracting the first column.

MFC after:	3 days

1 files changed, 10 insertions, 1 deletions

diff --git a/release/doc/share/misc/man2hwnotes.pl b/release/doc/share/misc/man2hwnotes.pl
index 95c083e6afbf..474ce99428d4 100644
--- a/release/doc/share/misc/man2hwnotes.pl
+++ b/release/doc/share/misc/man2hwnotes.pl
@@ -199,11 +199,18 @@ sub parse {
 		$cur_mansection = $2;
 
 	    } elsif (/^It ?(.*)$/) {
+		my $txt = $1;
+
 		# Flush last item
 		if ($mdocvars{parabuf} ne "") {
 		    add_listitem(\%mdocvars);
 		}
-		parabuf_addline(\%mdocvars, normalize($1));
+		# Only extract the first column of column lists.
+		if ($mdocvars{listtype} eq "column") {
+		    $txt =~ s/ Ta /\t/g;
+		    $txt =~ s/([^\t]+)\t.*/$1/;
+		}
+		parabuf_addline(\%mdocvars, normalize($txt));
 	    } elsif (/^Bl/) {
 		$mdocvars{isin_list} = 1;
 		flush_out(\%mdocvars);
@@ -217,6 +224,8 @@ sub parse {
 		    }
 		} elsif (/-bullet/) {
 		    $mdocvars{listtype} = "bullet";
+		} elsif (/-column/) {
+		    $mdocvars{listtype} = "column";
 		} else {
 		    $mdocvars{listtype} = "unknown";
 		}