[groff] 11/30: [mm]: Tweak document heading in MT 0-3,6.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 00f97ffd47dc8b8aec57f833e99c07eca28573a5
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Oct 9 09:41:05 2024 -0500

    [mm]: Tweak document heading in MT 0-3,6.
    
    * contrib/mm/mm/0.MT: Stop putting a blank line between author names in
      the document heading for memorandum types 0-3 and 6 if no
      supplementary data for each author is being formatted.  This change
      more accurately reproduces London & Reiser's 1978 paper describing the
      porting of Unix to the VAX-11/780.
    
      (cov@print-authors): New internal register `cov@au-line-counter`
      tracks how many output lines (more like items of per-author data) have
      been emitted for the current author.  Only if it ends up being more
      than one, call `SP 1` as before.  Remove register when done.
    
      (cov@print-au1, cov@print-au2): Increment `cov@au-line-counter`.
---
 contrib/mm/ChangeLog | 14 ++++++++++++++
 contrib/mm/mm/0.MT   |  6 +++++-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 58944b3ce..09e83e8c7 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,17 @@
+2024-10-09  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * mm/0.MT: Stop putting a blank line between author names in the
+       document heading for memorandum types 0-3 and 6 if no
+       supplementary data for each author is being formatted.  This
+       change more accurately reproduces London & Reiser's 1978 paper
+       describing the porting of Unix to the VAX-11/780.
+       (cov@print-authors): New internal register `cov@au-line-counter`
+       tracks how many output lines (more like items of per-author
+       data) have been emitted for the current author.  Only if it ends
+       up being more than one, call `SP 1` as before.  Remove register
+       when done.
+       (cov@print-au1, cov@print-au2): Increment `cov@au-line-counter`.
+
 2024-10-09  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * m.tmac (RP): Move `SP 2` call (spacing before reference list
diff --git a/contrib/mm/mm/0.MT b/contrib/mm/mm/0.MT
index bb6112317..6853e747e 100644
--- a/contrib/mm/mm/0.MT
+++ b/contrib/mm/mm/0.MT
@@ -131,6 +131,7 @@ http://savannah.gnu.org/bugs/?group=groff.
 .ad l
 .nr cov*i 0 1
 .while \\n+[cov*i]<=\\n[cov*au] \{\
+.      nr cov*au-line-counter 0
 .      cov@print-au1 \\n[cov*i] 1
 .      if \\n[Au] \{\
 .              if \\n[cov*fmt-au!4] .cov@print-au1 \\n[cov*i] 4
@@ -146,8 +147,9 @@ http://savannah.gnu.org/bugs/?group=groff.
 .              if \\n[cov*fmt-au!7] .cov@print-au1 \\n[cov*i] 8
 .              if \\n[cov*fmt-au!8] .cov@print-au1 \\n[cov*i] 9
 .      \}
-.      if \\n[cov*i]<\\n[cov*au] .SP 1
+.      if (\\n[cov*i]<\\n[cov*au])&(\\n[cov*au-line-counter]>1) .SP 1
 .\}
+.rr cov*au-line-counter
 .rr cov*i
 .ft
 .if r cov*mt-tm-max \{\
@@ -174,6 +176,7 @@ http://savannah.gnu.org/bugs/?group=groff.
 .      if '\\$2'4' .as cov*prefix Org.\& \"
 .      if '\\$2'5' .as cov*prefix x\"
 .      nop \\*[cov*prefix]\\*[cov*au!\\$1!\\$2]
+.      nr cov*au-line-counter +1
 .      rm cov*prefix
 .\}
 .br
@@ -184,6 +187,7 @@ http://savannah.gnu.org/bugs/?group=groff.
 .de cov@print-au2
 .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] \c
 .if d cov*au!\\$1!\\$3 \\*[cov*au!\\$1!\\$3]
+.nr cov*au-line-counter +1
 .br
 ..
 .\"------------