From 50d7a28330e4c9e3a4b24e63806db7d9d11f88e2 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Fri, 3 Sep 2010 04:26:04 -0400
Subject: [PATCH] Fix bugs in INTERCAL character set table markup.

---
 doc/intercal.mm | 20 +++-----------------
 1 file changed, 3 insertions(+), 17 deletions(-)

diff --git a/doc/intercal.mm b/doc/intercal.mm
index 1c63de9..4080253 100644
--- a/doc/intercal.mm
+++ b/doc/intercal.mm
@@ -2988,7 +2988,8 @@ the INTERCAL manual should contain some other type of removable organ.
 .FE
 .\" I don't remember what this font change did in 1990, 
 .\" but in 2010 it gave groff terrible fits and had to be removed.
-.\" Ditto for the second instance of @ps a few lines down.
+.\" Ditto for the second instance of @ps a few lines down and
+.\" the third just before Tonsil B.
 .\".ps \n[@ps]
 .\".nr * \n*+1
 .P
@@ -3061,19 +3062,6 @@ $	big money 	\fIbinary mingle (ASCII)\fR
 \(no	hookworm
 ^	shark (or simply sharkfin)
 \o"#*\(sq"	blotch
-.if '\*c'y' \{\
-\(de	bunghole
-\(rg	name grabber
-\(mu	andrew cross
-\(di	norwegian minus
-\(co	text grabber
-\(sc	swash
-\(*m	microscope
-\(+-	interworm
-\*(no	half turn
-\(Po	quid	binary mingle
-\(Cs	zlotnik	binary mingle
-\}
 .TE \}
 .el \{\
 .TS
@@ -3120,7 +3108,6 @@ $	big money 	binary mingle
 \(no	hookworm
 ^	shark (or simply sharkfin)	unary logical XOR (TriINTERCAL)
 \o"#*\(sq"	blotch
-.if '\*c'y' \{\
 \(de	bunghole
 \(rg	name grabber
 \(mu	andrew cross
@@ -3132,14 +3119,13 @@ $	big money 	binary mingle
 \*(no	half turn
 \(Po	quid	binary mingle
 \(Cs	zlotnik	binary mingle
-\}
 .TE \}
 .ce 1
 Table 2 (top view). INTERCAL character set.
 .FS
 Got any better ideas?
 .FE
-.ps \n[@ps]
+\".ps \n[@ps]
 .if '\*c'n' \{\
 .APP "B" "NOTES ON THE ATARI IMPLEMENTATION"
 .P
-- 
2.43.0