[Groff] Patch: add "PL" register to s.tmac

[Larry Kollar]

This patch (cvs diff -u) allows ms users to set the page length from 
the command line (for example "groff -ms -rPL=9i"), and documents it.

Index: doc/groff.texinfo
===================================================================
RCS file: /var/cvs/groff/doc/groff.texinfo,v
retrieving revision 1.205
diff -u -r1.205 groff.texinfo
--- doc/groff.texinfo   12 Jun 2004 13:24:07 -0000      1.205
+++ doc/groff.texinfo   18 Jun 2004 14:10:50 -0000
@@ -2788,6 +2788,14 @@
 Default: address@hidden
 @endDefmpreg

address@hidden {PL, ms}
+Defines the page length.
+
+Effective: beginning of the document.
+
+Default: dependent on compiled defaults;
+usually the length of either USletter or A4 pages.
+
 @Defmpreg {HM, ms}
 Defines the header margin height at the top of the page.

Index: tmac/groff_ms.man
===================================================================
RCS file: /var/cvs/groff/tmac/groff_ms.man,v
retrieving revision 1.12
diff -u -r1.12 groff_ms.man
--- tmac/groff_ms.man   18 Jul 2003 08:16:48 -0000      1.12
+++ tmac/groff_ms.man   18 Jun 2004 14:10:59 -0000
@@ -150,6 +150,9 @@
 FM     T{
 Bottom (footer) margin
 T}     next page       1i
+PL     T{
+Page length
+T}     beginning       11i
 _
 .TE
 .RE
Index: tmac/s.tmac
===================================================================
RCS file: /var/cvs/groff/tmac/s.tmac,v
retrieving revision 1.15
diff -u -r1.15 s.tmac
--- tmac/s.tmac 16 Apr 2004 04:48:42 -0000      1.15
+++ tmac/s.tmac 18 Jun 2004 14:11:04 -0000
@@ -51,6 +51,7 @@
 ..
 .de @init
 .if !rPO .nr PO \\n(.o
+.if  rPL .pl \\n[PL]u
 .\" a non-empty environment
 .ev ne
 \c
@@ -161,6 +162,7 @@
 .nr cov*rp-format 1
 .if \\n[.$] .if '\\$1'no' .nr cov*rp-no 1
 .if rPO .po \\n(POu
+.if rPL .pl \\n[PL]u
 .pn 0
 ..
 .de TL

--
Larry Kollar     k  o  l  l  a  r  @  a  l  l  t  e  l  .  n  e  t
Unix Text Processing: "UTP Revival"
http://home.alltel.net/kollar/utp/