Prepare `refer' support.

* m.tmac (\n[Rpe]): New register to control page eject status of the
`RP' macro.
(RP): Updated.
(ref@start-print): Move the trailing full stop in reference number
to...
(RS): This macro.

* groff_mm.man: Document `Rpe' register.

3 files changed, 40 insertions, 12 deletions

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 17d5d177..2d67f3e1 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,21 @@
+Fri Jan 28 10:26:29 2011  Werner LEMBERG  <wl@gnu.org>
+
+	Prepare `refer' support.
+
+	* m.tmac (\n[Rpe]): New register to control page eject status of the
+	`RP' macro.
+	(RP): Updated.
+	(ref@start-print): Move the trailing full stop in reference number
+	to...
+	(RS): This macro.
+
+	* groff_mm.man: Document `Rpe' register.
+
+Fri Jan 28 10:05:29 2011  Werner LEMBERG  <wl@gnu.org>
+
+	* mmroff.man, groff_mm.man: s/reference/cross reference/ where
+	appropriate.
+
 Wed Jan  5 15:05:47 2011  Werner LEMBERG  <wl@gnu.org>
 
 	Fix use of .DEVTAG-* macros.
diff --git a/contrib/mm/groff_mm.man b/contrib/mm/groff_mm.man
index eb1aa565..71f6fdab 100644
--- a/contrib/mm/groff_mm.man
+++ b/contrib/mm/groff_mm.man
@@ -2243,10 +2243,7 @@ whether to eject a page or not.
 .TS
 tab(@);
 l lx.
-0@T{
-The reference page is printed on a separate page.
-This is the default.
-T}
+0@The reference page is printed on a separate page.
 1@Do not eject page after the list.
 2@Do not eject page before the list.
 3@Do not eject page before and after the list.
@@ -2263,6 +2260,11 @@ to\~0 suppresses the line.
 The string
 .B Rp
 contains the reference page title and is set to `REFERENCES' by default.
+The number register
+.B Rpe
+holds the default value for the second argument of
+.BR RP ;
+it is initially set to\~0.
 .
 .TP
 .BI RS\  \fR[\fPstring-name\fR]\fP
@@ -3356,6 +3358,12 @@ T}
 Default is\~0.
 .
 .TP
+.B Rpe
+Set default value for second argument of
+.BR .RP .
+Default is\~0.
+.
+.TP
 .B Sectf
 A flag controlling `section-figures' numbering style.
 A non-zero value enables this.
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index e2f09e29..2a229fea 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -3,12 +3,11 @@
 .ds RE \\$2
 ..
 .\"
-.\" $Id: m.tmac,v 2.45 2011/01/05 14:55:34 wl Exp $
-.@revision $Revision: 2.45 $
+.\" $Id: m.tmac,v 2.46 2011/01/28 09:34:59 wl Exp $
+.@revision $Revision: 2.46 $
 .ig
 
-Copyright (C) 1991-2000, 2001, 2002, 2003, 2004, 2005, 2006, 2009,
-              2010, 2011
+Copyright (C) 1991-2006, 2009-2011
   Free Software Foundation, Inc.
 mgm is written by Jörgen Hägg <jh@axis.com>
 
@@ -140,6 +139,8 @@ Index		array!index
 .nr Pt 0
 .\"	Reference title
 .ds Rp REFERENCES
+.\"	Reference page eject status
+.nr Rpe 0
 .\"	Display indent
 .nr Si 5
 .\"
@@ -2806,7 +2807,7 @@ in=\\n[.i] fi=\\n[.u] .d=\\n[.d] nl=\\n[nl] pg=\\n[%]
 .if !''\\$1' .ds \\$1 \v'-.4m'\s-3[\\n[ref*nr]]\s0\v'.4m'
 .nr ref*flag 1
 .am ref*mac
-.ref@start-print \\n[ref*nr]
+.ref@start-print \\n[ref*nr].
 \\..
 .eo
 .am ref*mac RF
@@ -2822,8 +2823,8 @@ in=\\n[.i] fi=\\n[.u] .d=\\n[.d] nl=\\n[nl] pg=\\n[%]
 .de ref@start-print
 .di ref*div
 .in \\n[ref*nr-width]u
-.ti -(\w@\\$1.@u+1n)
-\\$1.
+.ti -(\w@\\$1@u+1n)
+\\$1
 .sp -1
 ..
 .de ref@stop-print
@@ -2840,7 +2841,8 @@ in=\\n[.i] fi=\\n[.u] .d=\\n[.d] nl=\\n[nl] pg=\\n[%]
 .\"-----------
 .de RP
 .if !d ref*mac .@error "RP: No references!"
-.nr ref*i 0\\$2
+.ie !''\\$2' .nr ref*i 0\\$2
+.el .nr ref*i \\n[Rpe]
 .if \\n[ref*i]<2 .SK
 .SP 2
 .ref@print-refs