From e85f62dedbf5704d3f7c3d4e228515d52bfc9e30 Mon Sep 17 00:00:00 2001
From: Kristaps Dzonsons <kristaps@bsd.lv>
Date: Wed, 4 Mar 2009 14:13:05 +0000
Subject: [PATCH] Fixed some character-escapes.

---
 mdocterm.1 | 20 ++++++++++++--------
 mdocterm.c |  8 ++++++--
 term.c     |  6 +++---
 term.h     |  6 ++++--
 4 files changed, 25 insertions(+), 15 deletions(-)

diff --git a/mdocterm.1 b/mdocterm.1
index 5164dd5e..d26066b3 100644
--- a/mdocterm.1
+++ b/mdocterm.1
@@ -1,4 +1,4 @@
-.\" $Id: mdocterm.1,v 1.12 2009/03/04 13:57:35 kristaps Exp $
+.\" $Id: mdocterm.1,v 1.13 2009/03/04 14:13:05 kristaps Exp $
 .\"
 .\" Copyright (c) 2009 Kristaps Dzonsons <kristaps@kth.se>
 .\"
@@ -118,7 +118,7 @@ Grammatic:
 .It \-
 \\- (hyphen)
 .It \\
-\\ (back-slash)
+\\\\ (back-slash)
 .El
 .\" PARAGRAPH
 .Pp
@@ -127,18 +127,22 @@ Enclosures:
 .Bl -tag -width "OutputXXXX" -offset "XXXX" -compact
 .It Em Output
 .Em Input (Name)
+.It \(ra
+\\(ra (right angle)
+.It \(la
+\\(la (left angle)
 .It \(rB
 \\(rB (right bracket)
 .It \(lB
-\\(rB (left bracket)
+\\(lB (left bracket)
 .It \(lq
 \\(lq (left double-quote)
 .It \(rq
-\\(rq, \\' (right double-quote)
+\\(rq (right double-quote)
 .It \(oq
-\\(lq, \\` (left single-quote)
+\\(oq, \\` (left single-quote)
 .It \(aq
-\\(aq (right single-quote, apostrophe)
+\\(aq, \\' (right single-quote, apostrophe)
 .El
 .\" PARAGRAPH
 .Pp
@@ -168,7 +172,7 @@ Mathematical:
 .It \(>=
 \\(>= (greater-than-equal)
 .It \(==
-\\(== (greater-than-equal)
+\\(== (equal)
 .It \(!=
 \\(!= (not equal)
 .It \(if
@@ -220,7 +224,7 @@ To display this manual page:
 .Pp
 To pipe a manual page to the pager:
 .Pp
-.D1 % mdocterm mdocterm.1 | less -R
+.D1 % mdocterm mdocterm.1 | less \-R
 .\" SECTION
 .Sh SEE ALSO
 .Xr mdoctree 1 ,
diff --git a/mdocterm.c b/mdocterm.c
index 26304aca..7fbd9466 100644
--- a/mdocterm.c
+++ b/mdocterm.c
@@ -1,4 +1,4 @@
-/* $Id: mdocterm.c,v 1.30 2009/03/04 14:04:02 kristaps Exp $ */
+/* $Id: mdocterm.c,v 1.31 2009/03/04 14:13:05 kristaps Exp $ */
 /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -78,6 +78,8 @@ static	struct termenc	  termenc1[] = {
 static	struct termenc	  termenc2[] = {
 	{ "rB", 	  TERMSYM_RBRACK },
 	{ "lB", 	  TERMSYM_LBRACK },
+	{ "ra", 	  TERMSYM_RANGLE },
+	{ "la", 	  TERMSYM_LANGLE },
 	{ "Lq", 	  TERMSYM_LDQUOTE },
 	{ "lq", 	  TERMSYM_LDQUOTE },
 	{ "Rq", 	  TERMSYM_RDQUOTE },
@@ -99,7 +101,7 @@ static	struct termenc	  termenc2[] = {
 	{ "Le", 	  TERMSYM_LE },
 	{ "<=", 	  TERMSYM_LE },
 	{ "Ge", 	  TERMSYM_GE },
-	{ "=>", 	  TERMSYM_GE },
+	{ ">=", 	  TERMSYM_GE },
 	{ "==", 	  TERMSYM_EQ },
 	{ "Ne", 	  TERMSYM_NEQ },
 	{ "!=", 	  TERMSYM_NEQ },
@@ -161,6 +163,8 @@ static	struct termsym	  termsym_ansi[] = {
 	{ " ", 1 },		/* TERMSYM_SPACE */
 	{ ".", 1 },		/* TERMSYM_PERIOD */
 	{ "", 0 },		/* TERMSYM_BREAK */
+	{ "<", 1 },		/* TERMSYM_LANGLE */
+	{ ">", 1 },		/* TERMSYM_RANGLE */
 };
 
 static	const char	  ansi_clear[]  = { 27, '[', '0', 'm' };
diff --git a/term.c b/term.c
index 2236703e..956bc1d6 100644
--- a/term.c
+++ b/term.c
@@ -1,4 +1,4 @@
-/* $Id: term.c,v 1.39 2009/03/04 13:57:35 kristaps Exp $ */
+/* $Id: term.c,v 1.40 2009/03/04 14:13:05 kristaps Exp $ */
 /*
  * Copyright (c) 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -1009,7 +1009,7 @@ termp_aq_pre(DECL_ARGS)
 
 	if (MDOC_BODY != node->type)
 		return(1);
-	word(p, "<");
+	word(p, "\\(la");
 	p->flags |= TERMP_NOSPACE;
 	return(1);
 }
@@ -1023,7 +1023,7 @@ termp_aq_post(DECL_ARGS)
 	if (MDOC_BODY != node->type)
 		return;
 	p->flags |= TERMP_NOSPACE;
-	word(p, ">");
+	word(p, "\\(ra");
 }
 
 
diff --git a/term.h b/term.h
index 32f5f5f7..4ec3e751 100644
--- a/term.h
+++ b/term.h
@@ -1,4 +1,4 @@
-/* $Id: term.h,v 1.17 2009/03/04 13:57:35 kristaps Exp $ */
+/* $Id: term.h,v 1.18 2009/03/04 14:13:05 kristaps Exp $ */
 /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -62,7 +62,9 @@ enum	tsym {
 	TERMSYM_HYPHEN =	33,
 	TERMSYM_SPACE =		34,
 	TERMSYM_PERIOD =	35,
-	TERMSYM_BREAK =		36
+	TERMSYM_BREAK =		36,
+	TERMSYM_LANGLE =	37,
+	TERMSYM_RANGLE =	38
 };
 
 
-- 
2.47.1