Some extra whitespace formatting fixes.

[SVN r16246]
This commit is contained in:
Rene Rivera 2002-11-15 05:13:59 +00:00
parent 4e0271c1f4
commit 88f4a01a64

View File

@ -78,12 +78,12 @@ rule section (
local p = [ MATCH "(.*)([ ]*)(::)$" : $(paragraph[-1]) ] ;
if $(p[2]) && $(p[2]) != "" { paragraph = $(paragraph[1--2]) $(p[1]): ; }
else { paragraph = $(paragraph[1--2]) $(p[1]) ; }
lines [ split-at-words " " $(paragraph) ] : " " ;
lines [ split-at-words " " $(paragraph) ] : " " " " ;
lines ;
}
else
{
lines [ split-at-words " " $(paragraph) ] : " " ;
lines [ split-at-words " " $(paragraph) ] : " " " " ;
lines ;
}
}
@ -140,6 +140,7 @@ rule split-at-words (
)
{
local lines = ;
text = [ string.words $(text:J=" ") ] ;
text = $(text:J=" ") ;
margin ?= 78 ;
local char-match-1 = ".?" ;