diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2009-01-05 14:04:51 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2009-01-05 14:04:51 (GMT) |
| commit | 471b96f1dae10d1ad6c2b827565f0324495b767a (patch) | |
| tree | b4484e253625a529303bdb49309c43f454b6b74f /doc | |
| parent | e666a0d6937dfdfa277d427bc667f6f1726c8b34 (diff) | |
| download | tcl-471b96f1dae10d1ad6c2b827565f0324495b767a.zip tcl-471b96f1dae10d1ad6c2b827565f0324495b767a.tar.gz tcl-471b96f1dae10d1ad6c2b827565f0324495b767a.tar.bz2 | |
Convert tabs to spaces for reliable display with nroff
Diffstat (limited to 'doc')
| -rw-r--r-- | doc/fcopy.n | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/doc/fcopy.n b/doc/fcopy.n index c4eaae2..1178093 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.18 2008/10/17 10:22:25 dkf Exp $ +'\" RCS: @(#) $Id: fcopy.n,v 1.19 2009/01/05 14:04:51 dkf Exp $ '\" .so man.macros .TH fcopy n 8.0 Tcl "Tcl Built-In Commands" @@ -118,7 +118,7 @@ proc Cleanup {in out bytes {error {}}} { close $in close $out if {[string length $error] != 0} { - # error occurred during the copy + # error occurred during the copy } } set in [open $file1] @@ -135,11 +135,11 @@ proc CopyMore {in out chunk bytes {error {}}} { global total done incr total $bytes if {([string length $error] != 0) || [eof $in]} { - set done $total - close $in - close $out + set done $total + close $in + close $out } else { - \fBfcopy\fR $in $out -size $chunk \e + \fBfcopy\fR $in $out -size $chunk \e -command [list CopyMore $in $out $chunk] } } |