From d948d615dcfc137ebd796f48ca450c5d0bc13056 Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Mon, 31 May 2010 09:25:14 +0000 Subject: Implement comments in AddHyphen directive per Mojca's request. git-svn-id: svn://tug.org/texlive/trunk@18639 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 3 +++ Master/tlpkg/TeXLive/TLUtils.pm | 4 ++++ 2 files changed, 7 insertions(+) (limited to 'Master/tlpkg/TeXLive') 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; -- cgit v1.2.3