[groff] 02/12: [me]: Don't draw a too-long footnote separator.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 07d7bf24af34f1fe00039286fc7cc932bc682530
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Dec 15 10:52:08 2021 +1100

    [me]: Don't draw a too-long footnote separator.
    
    * tmac/e.tmac ($c): Draw the footnote separator no wider than the column
      width.
    
    Fixes <https://savannah.gnu.org/bugs/?61675>.
---
 ChangeLog       | 7 +++++++
 doc/meref.me.in | 7 +++----
 tmac/e.tmac     | 5 ++++-
 3 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index fe8927d..550f6b9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2021-12-15  G. Branden Robinson <g.branden.robinson@gmail.com>
 
+       * tmac/e.tmac ($c): Draw the footnote separator no wider than
+       the column width.
+
+       Fixes <https://savannah.gnu.org/bugs/?61675>.
+
+2021-12-15  G. Branden Robinson <g.branden.robinson@gmail.com>
+
        * tmac/e.tmac (2c): Accept an empty first argument, permitting
        the number of columns to be specified but preserving the default
        column separation.
diff --git a/doc/meref.me.in b/doc/meref.me.in
index 299e977..62b7e96 100644
--- a/doc/meref.me.in
+++ b/doc/meref.me.in
@@ -1015,10 +1015,9 @@ outside a footnote.
 .b .$s
 .DE
 Output footnote separator:
-draw a 2i horizontal line.
-This macro is called by
-.b .(f
-to output the footnote separator.
+draw a horizontal line up to 2 inches wide.
+Called by
+.b .(f .
 Any redefinition should be
 no more than one vee in height.
 .TL
diff --git a/tmac/e.tmac b/tmac/e.tmac
index 39d8c1b..8a03b1c 100644
--- a/tmac/e.tmac
+++ b/tmac/e.tmac
@@ -1661,7 +1661,10 @@
 .      nr fp 8                 \" footnote pointsize
 .
 .de $s                 \" $$$ footnote separator
-\l'2i'
+.nr __ 2i
+.if \\n($lu<\\n(__u .nr __ \\n($lu
+\l'\\n(__u'
+.rr __
 ..
 .
 .