[groff] 08/08: [eqn]: Fix Savannah #64860 ({u,}tilde placement).

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 40c9c6b31a666f649c602450343583ba65f29f4c
Author: Pim <pimh@kth.se>
AuthorDate: Sun Nov 5 13:50:20 2023 +0000

    [eqn]: Fix Savannah #64860 ({u,}tilde placement).
    
    * src/preproc/eqn/lex.cpp: Update internal macro definitions used to
      construct tilde and under-tilde ("utilde") accents to set them in the
      roman face, like other accent marks in eqn.
    
    * src/preproc/eqn/eqn.1.man (New primitives): Update example.
    
    Fixes <https://savannah.gnu.org/bugs/?64860>.  Thanks to Damian McGuckin
    for reporting this problem on the groff mailing list.
    <https://lists.gnu.org/archive/html/groff/2023-06/msg00143.html>
    
    ANNOUNCE: Acknowledge Pim.
---
 ANNOUNCE                  |  1 +
 ChangeLog                 | 11 +++++++++++
 src/preproc/eqn/eqn.1.man |  2 +-
 src/preproc/eqn/lex.cpp   |  4 ++--
 4 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/ANNOUNCE b/ANNOUNCE
index 9c7294263..0fa8eef40 100644
--- a/ANNOUNCE
+++ b/ANNOUNCE
@@ -189,6 +189,7 @@ Mike Fulton
 Nikita Ivanov
 Peter Schaffter
 Phil Chadwick
+Pim
 Ralph Corderoy
 Thérèse Godefroy
 Thorsten Glaser
diff --git a/ChangeLog b/ChangeLog
index 1f92824c4..dc2465fa0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2023-11-06  Pim <pimh@kth.se>
+
+       * src/preproc/eqn/lex.cpp: Update internal macro definitions
+       used to construct tilde and under-tilde ("utilde") accents to
+       set them in the roman face, like other accent marks in eqn.
+       * src/preproc/eqn/eqn.1.man (New primitives): Update example.
+
+       Fixes <https://savannah.gnu.org/bugs/?64860>.  Thanks to Damian
+       McGuckin for reporting this problem on the groff mailing list.
+       <https://lists.gnu.org/archive/html/groff/2023-06/msg00143.html>
+
 2023-11-06  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * src/roff/troff/node.cpp (embolden_font): Do nothing if in
diff --git a/src/preproc/eqn/eqn.1.man b/src/preproc/eqn/eqn.1.man
index ca5145e2c..6c1cbfed4 100644
--- a/src/preproc/eqn/eqn.1.man
+++ b/src/preproc/eqn/eqn.1.man
@@ -649,7 +649,7 @@ as follows.
 .RS
 .IP
 .EX
-accent { "\[ha]" }
+accent { roman "\[ha]" }
 .EE
 .RE
 .
diff --git a/src/preproc/eqn/lex.cpp b/src/preproc/eqn/lex.cpp
index 5e0d0ffd8..03fb753e7 100644
--- a/src/preproc/eqn/lex.cpp
+++ b/src/preproc/eqn/lex.cpp
@@ -224,7 +224,7 @@ static struct builtin_def common_defs[] = {
   { "half", "{1 smallover 2}" },
   { "hat_def", "roman \"^\"" },
   { "hat", "accent { hat_def }" },
-  { "tilde_def", "\"~\"" },
+  { "tilde_def", "roman \"~\"" },
   { "tilde", "accent { tilde_def }" },
   { "==", "type \"relation\" \\(==" },
   { "!=", "type \"relation\" \\(!=" },
@@ -253,7 +253,7 @@ static struct builtin_def troff_defs[] = {
   { "dot", "accent { dot_def }" },
   { "dotdot_def", "up 52 back 25 \"..\"" },
   { "dotdot", "accent { dotdot_def }" },
-  { "utilde_def", "down 75 \"~\"" },
+  { "utilde_def", "down 75 roman \"~\"" },
   { "utilde", "uaccent { utilde_def }" },
   { "vec_def", "up 52 size -5 \\(->" },
   { "vec", "accent { vec_def }" },