diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-07-04 14:45:19 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-07-04 14:45:19 (GMT) |
| commit | e5f7a7f23ddbcd485a524a6fd1f60c2f6787c794 (patch) | |
| tree | 94204aa6e7eb0c629cb3f07f972124168ebd1e67 /doc/fcopy.n | |
| parent | 76681ff9cf616e99686fb280dc3e3f2b891334d9 (diff) | |
| download | tcl-e5f7a7f23ddbcd485a524a6fd1f60c2f6787c794.zip tcl-e5f7a7f23ddbcd485a524a6fd1f60c2f6787c794.tar.gz tcl-e5f7a7f23ddbcd485a524a6fd1f60c2f6787c794.tar.bz2 | |
Remove over-wide lines from nroff output.
Diffstat (limited to 'doc/fcopy.n')
| -rw-r--r-- | doc/fcopy.n | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/doc/fcopy.n b/doc/fcopy.n index 6513542..77135b9 100644 --- a/doc/fcopy.n +++ b/doc/fcopy.n @@ -5,7 +5,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: fcopy.n,v 1.9 2007/01/29 16:51:38 dgp Exp $ +'\" RCS: @(#) $Id: fcopy.n,v 1.10 2007/07/04 14:45:19 dkf Exp $ '\" .so man.macros .TH fcopy n 8.0 Tcl "Tcl Built-In Commands" @@ -132,15 +132,16 @@ proc CopyMore {in out chunk bytes {error {}}} { close $in close $out } else { - \fBfcopy\fR $in $out -command [list CopyMore $in $out $chunk] \\ - -size $chunk + \fBfcopy\fR $in $out -size $chunk \\ + -command [list CopyMore $in $out $chunk] } } set in [open $file1] set out [socket $server $port] set chunk 1024 set total 0 -\fBfcopy\fR $in $out -command [list CopyMore $in $out $chunk] -size $chunk +\fBfcopy\fR $in $out -size $chunk \\ + -command [list CopyMore $in $out $chunk] vwait done .DE |