tag.c: implement '--format' option

diff --git a/Documentation/cmd-list.perl b/Documentation/cmd-list.perl
index c2d55cdb5e8720be8892abf90b10379ca9cf3d65..5aa73cfe458d9485510c6a9a67e38e522394b62a 100755 (executable)
--- a/Documentation/cmd-list.perl
+++ b/Documentation/cmd-list.perl
@@ -27,7 +27,7 @@ sub format_one {
                die "No description found in $name.txt";
        }
        if (my ($verify_name, $text) = ($description =~ /^($name) - (.*)/)) {
-               print $out "gitlink:$name\[1\]::\n\t";
+               print $out "linkgit:$name\[1\]::\n\t";
                if ($attr =~ / deprecated /) {
                        print $out "(deprecated) ";
                }
@@ -38,6 +38,10 @@ sub format_one {
        }
 }
 
+while (<>) {
+       last if /^### command list/;
+}
+
 my %cmds = ();
 for (sort <>) {
        next if /^#/;