From 41c100dae9b4c8169f78ac1f0d55e33119d6bb57 Mon Sep 17 00:00:00 2001 From: wl Date: Sun, 30 May 2010 05:18:10 +0000 Subject: * m.tmac (P, nP): Fix handling of short paragraphs. Otherwise, .H 1 Bug .P one .P two .P three results in: 1. Bug one two three whereas it should, of course, produce: 1. Bug one two three --- contrib/mm/ChangeLog | 29 +++++++++++++++++++++++++++++ contrib/mm/m.tmac | 8 ++++---- 2 files changed, 33 insertions(+), 4 deletions(-) (limited to 'contrib') diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog index e7cc08c5..da3a2cef 100644 --- a/contrib/mm/ChangeLog +++ b/contrib/mm/ChangeLog @@ -1,3 +1,32 @@ +Sun May 30 07:14:15 2010 Larry Jones + + * m.tmac (P, nP): Fix handling of short paragraphs. + Otherwise, + + .H 1 Bug + .P + one + .P + two + .P + three + + results in: + + 1. Bug + + one two three + + whereas it should, of course, produce: + + 1. Bug + + one + + two + + three + Sat Jan 3 08:55:15 2009 Werner LEMBERG * groff_mm.man: Use new `x' table modifier for all tables which use diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac index ab43e6c3..310a4ebc 100644 --- a/contrib/mm/m.tmac +++ b/contrib/mm/m.tmac @@ -3,8 +3,8 @@ .ds RE \\$2 .. .\" -.\" $Id: m.tmac,v 2.37 2010/05/14 04:40:33 wl Exp $ -.@revision $Revision: 2.37 $ +.\" $Id: m.tmac,v 2.38 2010/05/30 05:18:10 wl Exp $ +.@revision $Revision: 2.38 $ .ig Copyright (C) 1991-2000, 2001, 2002, 2003, 2004, 2005, 2006, 2009, @@ -431,7 +431,7 @@ in=\\n[.i] fi=\\n[.u] .d=\\n[.d] nl=\\n[nl] pg=\\n[%] . tm Paragraph nl=\\n[nl], last=\\n[hd*last-pos] . tm Paragraph .k=\\n[.k], hsize=\\n[hd*last-hsize] .\} -.if !((\\n[nl]=\\n[hd*last-pos]):(\\n[hd*last-hsize]=\\n[.k])) \{\ +.if !((\\n[nl]=\\n[hd*last-pos])&(\\n[hd*last-hsize]=\\n[.k])) \{\ . if \\n[D]>2 .tm Paragraph set ind-flag=1 . nr par@ind-flag 1 . \" any collected unprinted text? @@ -446,7 +446,7 @@ in=\\n[.i] fi=\\n[.u] .d=\\n[.d] nl=\\n[nl] pg=\\n[%] . tm Paragraph nl=\\n[nl], last=\\n[hd*last-pos] . tm Paragraph .k=\\n[.k], hsize=\\n[hd*last-hsize] .\} -.if !((\\n[nl]=\\n[hd*last-pos]):(\\n[hd*last-hsize]=\\n[.k])) \{\ +.if !((\\n[nl]=\\n[hd*last-pos])&(\\n[hd*last-hsize]=\\n[.k])) \{\ . if \\n[D]>2 .tm Paragraph set ind-flag=1 . nr par@ind-flag 1 .\} -- cgit v1.2.1