diff options
| author | nijtmans <nijtmans> | 2009-11-18 21:45:36 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2009-11-18 21:45:36 (GMT) |
| commit | 1cb4f92988da74c1fbee275ed1a3e70f784fc19f (patch) | |
| tree | e4d7561b73fcfc61ef844b8c86dbe492843a5b99 /tools/tcltk-man2html.tcl | |
| parent | e732dcbc33f07f700918fed16ed2a8d62d5d3500 (diff) | |
| download | tcl-1cb4f92988da74c1fbee275ed1a3e70f784fc19f.zip tcl-1cb4f92988da74c1fbee275ed1a3e70f784fc19f.tar.gz tcl-1cb4f92988da74c1fbee275ed1a3e70f784fc19f.tar.bz2 | |
Eliminate unneccessary spaces
Diffstat (limited to 'tools/tcltk-man2html.tcl')
| -rwxr-xr-x | tools/tcltk-man2html.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl index 23b0d30..4b669ad 100755 --- a/tools/tcltk-man2html.tcl +++ b/tools/tcltk-man2html.tcl @@ -392,7 +392,7 @@ proc process-text {text} { {\1\\fI\2\3} ntext] || [regsub {^([^\\]*)\\fR([^\\]*)\\fR(.*)$} $text \ {\1\\fR\2\3} ntext] - } then { + } { manerror "impotent font change: $text" set text $ntext continue @@ -1164,7 +1164,7 @@ proc output-directive {line} { [next-op-is .nf rest] || [next-op-is .br rest] || [next-op-is .fi rest] - } then { + } { continue } if { @@ -1172,7 +1172,7 @@ proc output-directive {line} { || [next-op-is .SS rest] || [next-op-is .BE rest] || [next-op-is .SO rest] - } then { + } { backup-text 1 break } @@ -1432,7 +1432,7 @@ proc output-directive {line} { } ## ## merge copyright listings -## +## proc merge-copyrights {l1 l2} { set merge {} set re1 {^Copyright +(?:\(c\)|\\\(co|©) +(\w.*?)(?:all rights reserved)?(?:\. )*$} @@ -1912,7 +1912,7 @@ proc make-man-pages {html args} { CrtPhImgFmt DoOneEvent GetBitmap GetColor GetCursor GetDash GetJustify GetPixels GetVisual ParseArgv QueueEvent } - } then { + } { foreach item $toc { puts $outfd $item } |