summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2010-03-01 23:19:36 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2010-03-01 23:19:36 (GMT)
commitb44f57e1dde02e93b0193c005029439e460b7acc (patch)
tree25fe94e8b0c28dd73c2c234a13d840feda4c9780
parent0e6bbcf25f9e4b6964290efecf6ca3e0e416426d (diff)
downloadtcl-b44f57e1dde02e93b0193c005029439e460b7acc.zip
tcl-b44f57e1dde02e93b0193c005029439e460b7acc.tar.gz
tcl-b44f57e1dde02e93b0193c005029439e460b7acc.tar.bz2
Improve error message for corner case in ::prefix
-rw-r--r--generic/tclIndexObj.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c
index ee1ec43..c732cec 100644
--- a/generic/tclIndexObj.c
+++ b/generic/tclIndexObj.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIndexObj.c,v 1.56 2010/03/01 22:20:51 ferrieux Exp $
+ * RCS: @(#) $Id: tclIndexObj.c,v 1.57 2010/03/01 23:19:36 ferrieux Exp $
*/
#include "tclInt.h"
@@ -367,7 +367,7 @@ Tcl_GetIndexFromObjStruct(
Tcl_AppendStringsToObj(resultPtr, (numAbbrev > 1) &&
!(flags & TCL_EXACT) ? "ambiguous " : "bad ", msg, " \"", key, NULL);
if (STRING_AT(tablePtr, offset, 0) == NULL) {
- Tcl_AppendStringsToObj(resultPtr, "\": empty table !", NULL);
+ Tcl_AppendStringsToObj(resultPtr, "\": no valid options", NULL);
} else {
Tcl_AppendStringsToObj(resultPtr, "\": must be ", STRING_AT(tablePtr, offset, 0), NULL);
for (entryPtr = NEXT_ENTRY(tablePtr, offset), count = 0;