From 7b982bcc23280e2913aed27b3f88c2b7ca6bf6dc Mon Sep 17 00:00:00 2001
From: jacob <jacob@cda61777-01e9-0310-a592-d414129be87e>
Date: Sun, 6 Sep 2009 12:59:33 +0000
Subject: [PATCH] More portable attempt to get a literal U+0027 than r8321,
 pinched from pod2man (via Colin in Debian bug#496063).

git-svn-id: svn://svn.tartarus.org/sgt/halibut@8640 cda61777-01e9-0310-a592-d414129be87e
---
 bk_man.c | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/bk_man.c b/bk_man.c
index 1433dfd..92d7c3a 100644
--- a/bk_man.c
+++ b/bk_man.c
@@ -248,6 +248,12 @@ void man_backend(paragraph *sourceform, keywordlist *keywords,
 	    man_text(fp, p->words, TRUE, 0, &conf);
 	}
 
+    /* Standard preamble */
+    /* Dodge to try to get literal U+0027 in output when required,
+     * bypassing groff's Unicode transform; pinched from pod2man */
+    fprintf(fp, ".ie \\n(.g .ds Aq \\(aq\n"
+	        ".el       .ds Aq '\n");
+
     /* .TH name-of-program manual-section */
     fprintf(fp, ".TH");
     if (conf.th && *conf.th) {
@@ -489,8 +495,9 @@ static int man_convert(wchar_t const *s, int maxlen,
 		rdaddsc(&out, "\\(hy");
 		continue;
 	    } else if (*q == '\'' && (quote_props & QUOTE_LITERAL)) {
-		/* Try to preserve literal U+0027 */
-		rdaddsc(&out, "\\(aq"); /* "apostrophe quote" */
+		/* Try to preserve literal U+0027 (using string defined
+		 * in preamble) */
+		rdaddsc(&out, "\\*(Aq"); /* "apostrophe quote" */
 		continue;
 	    } else if (*q == '"' && (quote_props & QUOTE_QUOTES)) {
 		/*
-- 
2.11.0