[groff] 15/15: [man]: Fix other half of Savannah #60611.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit ef2bca1e2f11e1d12fd5559edb39953550d4fa4c
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Thu May 20 00:55:11 2021 +1000

    [man]: Fix other half of Savannah #60611.
    
    * tmac/an-old.tmac (an-bp): In continuous rendering mode, draw a
      horizontal line between a page footer of one man page document and the
      beginning of the next, but only if multiple documents are beign
      rendered.
    
      (initialization): Use variable to ensure we don't draw this line after
      finishing the only document we render.
    
    Fixes other half of <https://savannah.gnu.org/bugs/?60611>.
---
 ChangeLog        | 11 +++++++++++
 tmac/an-old.tmac | 16 ++++++++++++++--
 2 files changed, 25 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d41ddc8..693c8e9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,16 @@
 2021-05-20  G. Branden Robinson <g.branden.robinson@gmail.com>
 
+       * tmac/an-old.tmac (an-bp): In continuous rendering mode, draw
+       a horizontal line between a page footer of one man page document
+       and the beginning of the next, but only if multiple documents
+       are beign rendered.
+       (initialization): Use variable to ensure we don't draw this line
+       after finishing the only document we render.
+
+       Fixes other half of <https://savannah.gnu.org/bugs/?60611>.
+
+2021-05-20  G. Branden Robinson <g.branden.robinson@gmail.com>
+
        Fix stochastic vertical space loss problems in continuous
        rendering mode by being more scrupulous about extending the page
        length.  As noted in Savannah #60611, sometimes the vertical
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index 2e091dd..8f28c7a 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -70,9 +70,20 @@
 .  rr an-amount
 ..
 .
-.\" This .bp replacement adjusts the page length to the current position
-.\" so that no empty lines are inserted.
+.\" This .bp replacement for continuous rendering mode draws a
+.\" horizontal line after each document if there is more than one, and
+.\" adjusts the page length to the current position so that no empty
+.\" lines are inserted.
 .de an-bp
+.  ie \\n[an-do-draw-line-after-document] \{\
+.    pl +1v
+.    nf
+.    ti 0
+\D'l \\n[LL]u 0'
+.    fi
+.  \}
+.  el \
+.    nr an-do-draw-line-after-document 1
 .  pl \\n[nl]u
 ..
 .
@@ -754,6 +765,7 @@
 .nr need_eo_h 0 \" need to mark end of a heading?
 .nr need_col2 0 \" need two-column layout?
 .
+.nr an-do-draw-line-after-document 0
 .nr an-is-first-page-of-document 1
 .
 .nr an-is-output-html 0