[groff] 06/13: [mm]: Fix Savannah #62190.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit d8af9f61e59d96b3166dcd5c83bf22e3995d4293
Author: Damian McGuckin <damianm@esi.com.au>
AuthorDate: Tue Mar 15 21:13:51 2022 +0000

    [mm]: Fix Savannah #62190.
    
    * contrib/mm/m.tmac (eq@check): Compensate for display indentation when
      setting equation label.
    
    Fixes <https://savannah.gnu.org/bugs/?62190>.
---
 contrib/mm/ChangeLog | 7 +++++++
 contrib/mm/m.tmac    | 7 +++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 8695fe08..d0c31b32 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,10 @@
+2022-03-15  Damian McGuckin <damianm@esi.com.au>
+
+       * m.tmac (eq@check): Compensate for display indentation when
+       setting equation label.
+
+       Fixes <https://savannah.gnu.org/bugs/?62190>.
+
 2022-04-27  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        Regression-test Savannah #62190.
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index 1ff7f179..492d0fd5 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -2425,8 +2425,11 @@ in=\\n[.i] fi=\\n[.u] .d=\\n[.d] nl=\\n[nl] pg=\\n[%]
 \h'|0'\\*[eq*label]
 .      \}
 .      el \{\
-.              \"      label to the right
-\h'|\\n[.l]u-\w'\\*[eq*label]'u'\\*[eq*label]
+.              \"      label to the right, possibly compensating for
+.              \"      indented display
+.              ie \\n[ds*format]=1 \
+\h'|\\n[.l]u-\w'\\*[eq*label]'u+\\n(Sin'\\*[eq*label]
+.              el \h'|\\n[.l]u-\w'\\*[eq*label]'u'\\*[eq*label]
 .      \}
 .      rt
 .\}