[groff] 15/19: [ms]: Fix Savannah #62687.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit c9ac9d5ef180cc0b24d981bec07287512bd7a60c
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Jul 6 13:13:45 2022 -0500

    [ms]: Fix Savannah #62687.
    
    * tmac/s.tmac (@MC): Honor `MINGW` register even when setting only two
      columns, as clearly implied by our documentation.
    
    Fixes <https://savannah.gnu.org/bugs/?62687>.
    
    Discovered while formatting Kernighan & Cherry's "Typesetting
    Mathematics -- User's Guide (Second Edition) from the Unix V7
    Programmer's Manual.
---
 ChangeLog   | 9 +++++++++
 tmac/s.tmac | 4 ++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5f0aa00e..451db540 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2022-07-06  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [ms]: Fix Savannah #62687.
+
+       * tmac/s.tmac (@MC): Honor `MINGW` register even when setting
+       only two columns, as clearly implied by our documentation.
+
+       Fixes <https://savannah.gnu.org/bugs/?62687>.
+
 2022-07-06  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        [ms]: Regression-test Savannah #62687.
diff --git a/tmac/s.tmac b/tmac/s.tmac
index a934225c..5c3ed694 100644
--- a/tmac/s.tmac
+++ b/tmac/s.tmac
@@ -556,8 +556,8 @@ along with this program.  If not, see 
<http://www.gnu.org/licenses/>.
 .      \}
 .\}
 .ie !\\n(.$ \{\
-.      nr pg@colw \\n[LL]*7/15
-.      nr pg*gutw \\n[LL]-(2*\\n[pg@colw])
+.      nr pg*gutw \\n[MINGW]
+.      nr pg@colw \\n[LL]-\\n[pg*gutw]/2u
 .      nr pg@ncols 2
 .\}
 .el \{\