Escape TH -> Th (noticed by Joerg Sonnenberger).

Moved pod2man escapes into man.3 (they're not part of -man or -mdoc, technically).

3 files changed, 25 insertions, 20 deletions

diff --git a/chars.in b/chars.in
index b96d9ae7..b2580115 100644
--- a/chars.in
+++ b/chars.in
@@ -365,7 +365,7 @@ STRING("8",			1,	"B",		1,	"β",	6)
 STRING("o",			1,	"o",		1,	"°",	6)
 STRING("D-",			2,	"D",		1,	"Ð",	6)
 STRING("d-",			2,	"o",		1,	"ð",	6)
-STRING("TH",			2,	"b",		1,	"Þ",	6)
+STRING("Th",			2,	"b",		1,	"Þ",	6)
 STRING("th",			2,	"b",		1,	"þ",	6)
 
 /* Old style. */
diff --git a/man.3 b/man.3
index dc8c85ae..9a054d3f 100644
--- a/man.3
+++ b/man.3
@@ -127,6 +127,30 @@ closing
 .Pq part of the standard preamble for Perl documentation .
 Handled as a current-scope line macro.
 .El
+.Pp
+Furthermore, the following escapes are accepted to allow
+.Xr pod2man 1
+documents to be correctly formatted: 
+\e*(-- (dash),
+\e*(PI (pi),
+\e*(L" (left double-quote),
+\e*(R" (right double-quote),
+\e*(C+ (C++),
+\e*(C` (left single-quote),
+\e*(C' (right single-quote),
+\e*(Aq (apostrophe),
+\e*^ (hat),
+\e*, (comma),
+\e*~ (tilde),
+\e*/ (forward slash),
+\e*: (umlaut),
+\e*8 (beta),
+\e*o (degree),
+\e*(D- (Eth),
+\e*(d- (eth),
+\e*(Th (Thorn),
+and
+\e*(th (thorn).
 .
 .
 .Sh REFERENCE
diff --git a/mandoc_char.7 b/mandoc_char.7
index d36dbd4b..d1f849f6 100644
--- a/mandoc_char.7
+++ b/mandoc_char.7
@@ -540,25 +540,6 @@ implementations:
 .It \e*(>=   Ta \*(>=       Ta greater-than-equal
 .It \e*(aa   Ta \*(aa       Ta acute
 .It \e*(ga   Ta \*(ga       Ta grave
-.It \e*(--   Ta \*(--       Ta dash
-.It \e*(PI   Ta \*(PI       Ta pi
-.It \e*(L"   Ta \*(L"       Ta left double-quote
-.It \e*(R"   Ta \*(R"       Ta right double-quote
-.It \e*(C+   Ta \*(C+       Ta C++
-.It \e*(C`   Ta \*(C`       Ta left single-quote
-.It \e*(C'   Ta \*(C'       Ta right single-quote
-.It \e*(Aq   Ta \*(Aq       Ta apostrophe quote
-.It \e*^     Ta \*^         Ta up-arrow
-.It \e*,     Ta \*,         Ta comma
-.It \e*~     Ta \*~         Ta tilde
-.It \e*/     Ta \*/         Ta forward slash
-.It \e*:     Ta \*:         Ta umlaut
-.It \e*8     Ta \*8         Ta beta
-.It \e*o     Ta \*o         Ta degree symbol
-.It \e*(D-   Ta \*(D-       Ta Eth
-.It \e*(d-   Ta \*(d-       Ta eth
-.It \e*(TH   Ta \*(TH       Ta Thorn
-.It \e*(th   Ta \*(th       Ta thorn
 .El
 .
 .