summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-02-08 10:06:12 (GMT)
committerhobbs <hobbs>2000-02-08 10:06:12 (GMT)
commit3c070293450ed778ee662d98784457839cafc43f (patch)
tree68762bb544e9d4f8a04e4b852847ddaa680f7b46
parent1721f69f9f7b3f33d82c2c68b7d8ecd0e689635f (diff)
downloadtcl-3c070293450ed778ee662d98784457839cafc43f.zip
tcl-3c070293450ed778ee662d98784457839cafc43f.tar.gz
tcl-3c070293450ed778ee662d98784457839cafc43f.tar.bz2
* doc/library.n:
* library/auto.tcl: fixed crufty puts code and docs [Bug: 4122]
-rw-r--r--library/auto.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/library/auto.tcl b/library/auto.tcl
index 9575f7b..1281b76 100644
--- a/library/auto.tcl
+++ b/library/auto.tcl
@@ -3,7 +3,7 @@
# utility procs formerly in init.tcl dealing with auto execution
# of commands and can be auto loaded themselves.
#
-# RCS: @(#) $Id: auto.tcl,v 1.6 2000/02/01 01:14:01 ericm Exp $
+# RCS: @(#) $Id: auto.tcl,v 1.7 2000/02/08 10:06:12 hobbs Exp $
#
# Copyright (c) 1991-1993 The Regents of the University of California.
# Copyright (c) 1994-1998 Sun Microsystems, Inc.
@@ -182,7 +182,7 @@ proc auto_mkindex {dir args} {
auto_mkindex_parser::cleanup
set fid [open "tclIndex" w]
- puts $fid $index nonewline
+ puts -nonewline $fid $index
close $fid
cd $oldDir
}
@@ -229,7 +229,7 @@ proc auto_mkindex_old {dir args} {
set f ""
set error [catch {
set f [open tclIndex w]
- puts $f $index nonewline
+ puts -nonewline $f $index
close $f
cd $oldDir
} msg]