Make An macro understand two special arguments, -nosplit

and -split.  See the mdoc.samples(7) manpage for details.

Reviewed by:	sheldonh

contrib/groff/tmac/tmac.doc

@@ -3359,6 +3359,15 @@ File:
 .\" NS aN register
 .nr aN 0
 .de An
+.if \\n(aC==0 \{\
+.	ie \\n(.$==0 .tm Usage: .An author_name ... \\*(Pu (#\\n(.c)
+.	el .ie "\\$1"-nosplit" .nr nY 0
+.	el .ie "\\$1"-split" .nr nY 1
+.	el \{\
+.		ds mN An
+.		aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+.	\}
+.\}
 .if \\n(nY==1 \{\
 .	ie \\n(aN==1 \{\
 .		br
@@ -3367,13 +3376,6 @@ File:
 .		nr aN 1
 .	\}
 .\}
-.if \\n(aC==0 \{\
-.       ie \\n(.$==0 .tm Usage: .An author_name ... \\*(Pu (#\\n(.c)
-.	el \{\
-.		ds mN An
-.		aV \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
-.	\}
-.\}
 .if \\n(aC>\\n(aP \{\
 .	nr aP \\n(aP+1
 .       nr cF \\n(.f

share/man/man7/mdoc.samples.7

@@ -874,6 +874,23 @@ It is an error to call
 .Ql \&.An
 without
 any arguments.
+.Pp
+In the
+.Sx AUTHORS
+section, an
+.Ql \&.An
+request causes a line break allowing each new name
+to appear on its own line.
+If this is not desirable, the
+.Bd -literal -offset indent
+\&.An -nosplit
+.Ed
+.Pp
+call will turn this off.
+To turn splitting back on, call the
+.Bd -literal -offset indent
+\&.An -split
+.Ed
 .Ss Argument Macro
 The
 .Ql \&.Ar