[groff] 08/33: [grodvi]: Fix Savannah #63200.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 2877e0d953df9985b6728cdd8678e8166d20f46b
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Tue Oct 11 00:01:06 2022 -0500

    [grodvi]: Fix Savannah #63200.
    
    * tmac/dvi.tmac: Always render \[aq] as a neutral apostrophe.  Thanks to
      the TC fonts, we can do this even when the default CM text fonts are
      in use.
    
    Fixes <https://savannah.gnu.org/bugs/?63200>.
    
    Problem originally observed with the following.
    
    .TH foo 1 2022-10-10 "groff test suite"
    .SH Name
    foo \- frobnicate a bar
    .P
    .TS
    L L L.
    face    text aq, dq     special aq, dq
    _
    \f[TR]font/devdvi/TR    \[aq] \[dq]\f[] \f[TRTC]\[aq] \[dq]\f[]
    \f[TI]font/devdvi/TI    \[aq] \[dq]\f[] \f[TITC]\[aq] \[dq]\f[]
    \f[TB]font/devdvi/TB    \[aq] \[dq]\f[] \f[TBTC]\[aq] \[dq]\f[]
    \f[TBI]font/devdvi/TBI  \[aq] \[dq]\f[] \f[TBITC]\[aq] \[dq]\f[]
    \f[HR]font/devdvi/HR    \[aq] \[dq]\f[] \f[HRTC]\[aq] \[dq]\f[]
    \f[HI]font/devdvi/HI    \[aq] \[dq]\f[] \f[HITC]\[aq] \[dq]\f[]
    \f[HB]font/devdvi/HB    \[aq] \[dq]\f[] \f[HBTC]\[aq] \[dq]\f[]
    \f[HBI]font/devdvi/HBI  \[aq] \[dq]\f[] \f[HBITC]\[aq] \[dq]\f[]
    \f[CW]font/devdvi/CW    \[aq] \[dq]\f[] \f[CWTC]\[aq] \[dq]\f[]
    \f[CWI]font/devdvi/CWI  \[aq] \[dq]\f[] \f[CWITC]\[aq] \[dq]\f[]
    .TE
---
 ChangeLog     |  8 ++++++++
 tmac/dvi.tmac | 11 ++++++++++-
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 30d4cf73e..456ee0df5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2022-10-10  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/dvi.tmac: Always render \[aq] as a neutral apostrophe.
+       Thanks to the TC fonts, we can do this even when the default CM
+       text fonts are in use.
+
+       Fixes <https://savannah.gnu.org/bugs/?63200>.
+
 2022-10-10  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * tmac/ec.tmac: Remove apparently unnecessary remappings of
diff --git a/tmac/dvi.tmac b/tmac/dvi.tmac
index 2ff831985..5ce2c4cc2 100644
--- a/tmac/dvi.tmac
+++ b/tmac/dvi.tmac
@@ -82,7 +82,16 @@
 .fchar \[=~] \v'.1m'\Z'\[eq]'\v'-.4m'\[ap]\v'.3m'
 .fchar \[tm] \v'-.3m'\s[\En[.s]/2u]TM\s0\v'.3m'
 .\" TC fonts contain real \[aq] glyphs
-.schar \[aq] '
+.fschar TR \[aq] \f[TRTC]\[aq]
+.fschar TI \[aq] \f[TITC]\[aq]
+.fschar TB \[aq] \f[TBTC]\[aq]
+.fschar TBI \[aq] \f[TBITC]\[aq]
+.fschar HR \[aq] \f[HRTC]\[aq]
+.fschar HI \[aq] \f[HITC]\[aq]
+.fschar HB \[aq] \f[HBTC]\[aq]
+.fschar HBI \[aq] \f[HBITC]\[aq]
+.fschar CW \[aq] \f[CWTC]\[aq]
+.fschar CWI \[aq] \f[CWITC]\[aq]
 .fchar \[bq] ,
 .fchar \[Bq] ,\h'\w'\[rq]'u-(2u*\w"'"u)',
 .fchar \[ho] \s[\En[.s]/2u]\v'.4m'c\v'-.4m'\s0