Implement comments in AddHyphen directive per Mojca's request.

git-svn-id: svn://tug.org/texlive/trunk@18639 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 7 insertions, 0 deletions

diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 75fc38c6605..b13e1655594 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -1106,6 +1106,9 @@ sub _parse_hyphen_execute {
         push @langlines, "$cc from $pkg:\n";
         $first = 0;
       }
+      if ($r{"comment"}) {
+          push @langlines, "$cc $r{comment}\n";
+      }
       my @foo = &$coderef ($r{"name"}, $r{"lefthyphenmin"},
                            $r{"righthyphenmin"}, $r{"file"}, $r{"synonyms"},
                            $r{"file_patterns"}, $r{"file_exceptions"},
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 89fbceba39b..6c63a8da3c8 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -2605,6 +2605,10 @@ sub parse_AddHyphen_line {
       @{$ret{"synonyms"}} = split /,/, $b;
       next;
     }
+    if ($a eq "comment") {
+        $ret{"comment"} = $b;
+        next;
+    }
     # should not be reached at all
     $ret{"error"} = "Unknown language directive $e";
     return %ret;