[groff] 30/31: Fix Savannah #60373 (2/3).

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit aac2e49db9237f31d362b5cb5c79a023a4accc20
Author: Bjarni Ingi Gislason <bjarniig@rhi.hi.is>
AuthorDate: Tue May 25 20:02:02 2021 +0000

    Fix Savannah #60373 (2/3).
    
    * contrib/mm/m.tmac (let@sg_SP): Stop placing a comma after the
      first argument (an author name set by AU) if the second argument is
      empty (an author title set by AT).
    
    Solves another part of bug #60373, "the writer's name at the bottom is
    followed by a trailing comma".
    
    Fixes <https://savannah.gnu.org/bugs/?60389>.
    
    [Patch restyled to fit the conventions of the source file. --GBR]
---
 ChangeLog         | 11 +++++++++++
 contrib/mm/m.tmac |  3 ++-
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 487af7b..38d3301 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,16 @@
 2021-05-30  Bjarni Ingi Gislason <bjarniig@rhi.hi.is>
 
+       * contrib/mm/m.tmac (let@sg_SP): Stop placing a comma after the
+       first argument (an author name set by AU) if the second argument
+       is empty (an author title set by AT).
+
+       Solves another part of bug #60373, "the writer's name at the
+       bottom is followed by a trailing comma".
+
+       Fixes <https://savannah.gnu.org/bugs/?60389>.
+
+2021-05-30  Bjarni Ingi Gislason <bjarniig@rhi.hi.is>
+
        * contrib/mm/m.tmac (let@print-head): Quote the interpolation of
        the string `let*lo-SJ`.
 
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index c8f66ba..1c260e0 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -3437,7 +3437,8 @@ in=\\n[.i] fi=\\n[.u] .d=\\n[.d] nl=\\n[nl] pg=\\n[%]
 .nf
 .if \\$3=1 .sp
 .sp
-.misc@toupper "\\$1, \\$2"
+.ie '\\$2'' .misc@toupper "\\$1"
+.el         .misc@toupper "\\$1, \\$2"
 .if \\$4 .sp
 .if \w'\\$5'&\\$4 \\$5
 .fi