summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-05-31 09:25:14 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-05-31 09:25:14 +0000
commitd948d615dcfc137ebd796f48ca450c5d0bc13056 (patch)
tree8206fc331c0740fb0077b97a15bacf3a8d6f9699 /Master
parent814a6a719c0ee9ae30b89deaab7d483f071108cd (diff)
Implement comments in AddHyphen directive per Mojca's request.
git-svn-id: svn://tug.org/texlive/trunk@18639 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm3
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm4
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;