diff options
| author | stanton <stanton> | 1999-05-05 01:19:42 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-05-05 01:19:42 (GMT) |
| commit | 1c648c91432e154da4099cf32a8e87f0a24d50d9 (patch) | |
| tree | 35cd0c32f8026eb26a294aaedb67557a438f47b8 /generic/tclIOCmd.c | |
| parent | f080563e1ce42aff0aa7cdcfc64a5d6da7286abc (diff) | |
| download | tcl-1c648c91432e154da4099cf32a8e87f0a24d50d9.zip tcl-1c648c91432e154da4099cf32a8e87f0a24d50d9.tar.gz tcl-1c648c91432e154da4099cf32a8e87f0a24d50d9.tar.bz2 | |
lint and better documentation of the character vs. byte oriented commands
Diffstat (limited to 'generic/tclIOCmd.c')
| -rw-r--r-- | generic/tclIOCmd.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index f88840b..bbb4e4e 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOCmd.c,v 1.5 1999/04/16 00:46:47 stanton Exp $ + * RCS: @(#) $Id: tclIOCmd.c,v 1.6 1999/05/05 01:19:43 stanton Exp $ */ #include "tclInt.h" @@ -298,7 +298,7 @@ Tcl_ReadObjCmd(dummy, interp, objc, objv) if ((objc != 2) && (objc != 3)) { argerror: - Tcl_WrongNumArgs(interp, 1, objv, "channelId ?numBytes?"); + Tcl_WrongNumArgs(interp, 1, objv, "channelId ?numChars?"); Tcl_AppendResult(interp, " or \"", Tcl_GetString(objv[0]), " ?-nonewline? channelId\"", (char *) NULL); return TCL_ERROR; |