o Small fix to handling of underlining of italic text spanning

  pages in PRINTSTYLE TYPEWRITE.

2 files changed, 15 insertions, 6 deletions

diff --git a/contrib/mom/ChangeLog b/contrib/mom/ChangeLog
index 8d146418..3a4253fb 100644
--- a/contrib/mom/ChangeLog
+++ b/contrib/mom/ChangeLog
@@ -1,3 +1,8 @@
+*Thu Feb  2 2006
+
+o Small fix to handling of underlining of italic text spanning
+  pages in PRINTSTYLE TYPEWRITE.
+
 *Thu Jan 12 2006
 
 o Reworked changing and setting of traps associated with outputting
diff --git a/contrib/mom/om.tmac b/contrib/mom/om.tmac
index 15ffe5c2..a745212e 100644
--- a/contrib/mom/om.tmac
+++ b/contrib/mom/om.tmac
@@ -21,8 +21,8 @@ You should have received a copy of the GNU General Public License along
 with groff; see the file COPYING.  If not, write to the Free Software
 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 
-Version 1.3-c
--------------
+Version 1.3-c_1
+---------------
 Antoine de St-Exupéry asserted that elegance in engineering is
 achieved not when there is nothing left to add, but when there is
 nothing left to take away.
@@ -8011,7 +8011,9 @@ Default is OFF.
 .       if \\n[#SLANT_ON] \{\
 .          if \\n[#UNDERLINE_SLANT] \{ .UNDERLINE \}
 .       \}
-.       if \\n[#UNDERLINE_ITALIC]   \{ .UNDERLINE \}
+.       if \\n[#UNDERLINE_ON]=1 \{\
+.          if \\n[#UNDERLINE_ITALIC] \{ .UNDERLINE \}
+.       \}
 .    \}
 .    rr #FROM_HEADER
 .    rr #DEFER_SPACE_ADDED
@@ -8256,12 +8258,14 @@ Default is OFF.
 .    po \\n[#DOC_L_MARGIN]u
 .    ll \\n[#DOC_L_LENGTH]u
 .    ta \\n(.lu
-.    FAMILY  \\*[$HDRFTR_FAM]
-.    FT      R
-.    PT_SIZE \\n[#DOC_PT_SIZE]u\\*[$HDRFTR_SIZE_CHANGE]
 .    if \\n[#PRINT_STYLE]=1 \{\
 .       TYPEWRITER
 .    \}
+.    if \\n[#PRINT_STYLE]=2 \{\
+.       FAMILY  \\*[$HDRFTR_FAM]
+.       FT      R
+.       PT_SIZE \\n[#DOC_PT_SIZE]u\\*[$HDRFTR_SIZE_CHANGE]
+.    \}
 .    LS \\n[#SAVED_LEAD]u
 .    nr #HDRFTR_PT_SIZE \\n[#PT_SIZE]
 .    if \\n[#CAPS_ON] \{\