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, 30 insertions, 25 deletions

diff --git a/chars.in b/chars.in
index 68ad9566..61a99e1d 100644
--- a/chars.in
+++ b/chars.in
@@ -1,4 +1,4 @@
-/*	$Id: chars.in,v 1.21 2010/03/23 13:25:01 kristaps Exp $ */
+/*	$Id: chars.in,v 1.22 2010/03/30 19:20:33 kristaps Exp $ */
 /*
  * Copyright (c) 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -365,7 +365,7 @@ STRING("8",			1,	"B",		1,	"&#946;",	6)
 STRING("o",			1,	"o",		1,	"&#176;",	6)
 STRING("D-",			2,	"D",		1,	"&#208;",	6)
 STRING("d-",			2,	"o",		1,	"&#240;",	6)
-STRING("TH",			2,	"b",		1,	"&#222;",	6)
+STRING("Th",			2,	"b",		1,	"&#222;",	6)
 STRING("th",			2,	"b",		1,	"&#254;",	6)
 
 /* Old style. */
diff --git a/man.3 b/man.3
index 552be651..2138e7bd 100644
--- a/man.3
+++ b/man.3
@@ -1,4 +1,4 @@
-.\"	$Id: man.3,v 1.13 2010/03/27 10:04:56 kristaps Exp $
+.\"	$Id: man.3,v 1.14 2010/03/30 19:20:33 kristaps Exp $
 .\"
 .\" Copyright (c) 2009-2010 Kristaps Dzonsons <kristaps@bsd.lv>
 .\"
@@ -14,7 +14,7 @@
 .\" ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 .\" OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 .\"
-.Dd $Mdocdate: March 27 2010 $
+.Dd $Mdocdate: March 30 2010 $
 .Dt MAN 3
 .Os
 .
@@ -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 b55ddf48..e7afd65c 100644
--- a/mandoc_char.7
+++ b/mandoc_char.7
@@ -1,4 +1,4 @@
-.\"	$Id: mandoc_char.7,v 1.33 2010/03/23 13:25:01 kristaps Exp $
+.\"	$Id: mandoc_char.7,v 1.34 2010/03/30 19:20:33 kristaps Exp $
 .\"
 .\" Copyright (c) 2009 Kristaps Dzonsons <kristaps@kth.se>
 .\"
@@ -14,7 +14,7 @@
 .\" ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 .\" OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 .\"
-.Dd $Mdocdate: March 23 2010 $
+.Dd $Mdocdate: March 30 2010 $
 .Dt MANDOC_CHAR 7
 .Os
 .
@@ -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
 .
 .