summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-07-13 23:15:21 (GMT)
committernijtmans <nijtmans>2008-07-13 23:15:21 (GMT)
commitad35d9b5b7a3de682d371c0bb686815f1c5e849e (patch)
treeaacaf7cde84808f89893f7542a9a079c3e8603b1 /generic/tclCmdIL.c
parent28f4419947aa4b448501687014bb415dc7096511 (diff)
downloadtcl-ad35d9b5b7a3de682d371c0bb686815f1c5e849e.zip
tcl-ad35d9b5b7a3de682d371c0bb686815f1c5e849e.tar.gz
tcl-ad35d9b5b7a3de682d371c0bb686815f1c5e849e.tar.bz2
more consistent wrong # arg messages: change all messages containing ?options? to the form ?-option value ...?
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r--generic/tclCmdIL.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index 4eef275..b7ea47d 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdIL.c,v 1.143 2008/07/07 21:40:18 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.144 2008/07/13 23:15:22 nijtmans Exp $
*/
#include "tclInt.h"
@@ -2114,7 +2114,7 @@ Tcl_LindexObjCmd(
Tcl_Obj *elemPtr; /* Pointer to the element being extracted. */
if (objc < 2) {
- Tcl_WrongNumArgs(interp, 1, objv, "list ?index...?");
+ Tcl_WrongNumArgs(interp, 1, objv, "list ?index ...?");
return TCL_ERROR;
}
@@ -2764,7 +2764,7 @@ Tcl_LsearchObjCmd(
sortInfo.indexc = 0;
if (objc < 3) {
- Tcl_WrongNumArgs(interp, 1, objv, "?options? list pattern");
+ Tcl_WrongNumArgs(interp, 1, objv, "?-option value ...? list pattern");
return TCL_ERROR;
}
@@ -3386,7 +3386,7 @@ Tcl_LsetObjCmd(
*/
if (objc < 3) {
- Tcl_WrongNumArgs(interp, 1, objv, "listVar index ?index...? value");
+ Tcl_WrongNumArgs(interp, 1, objv, "listVar index ?index ...? value");
return TCL_ERROR;
}
@@ -3486,7 +3486,7 @@ Tcl_LsortObjCmd(
SortElement *subList[NUM_LISTS+1];
if (objc < 2) {
- Tcl_WrongNumArgs(interp, 1, objv, "?options? list");
+ Tcl_WrongNumArgs(interp, 1, objv, "?-option value ...? list");
return TCL_ERROR;
}