From 71d143c08a7a7643254537ea51303a0183f35707 Mon Sep 17 00:00:00 2001 From: dgp Date: Mon, 11 Sep 2006 14:38:02 +0000 Subject: * library/msgcat/msgcat.tcl: Removed some unneeded [uplevel]s. --- ChangeLog | 4 ++++ library/msgcat/msgcat.tcl | 9 ++++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0155817..213b23d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2006-09-11 Don Porter + + * library/msgcat/msgcat.tcl: Removed some unneeded [uplevel]s. + 2006-09-10 Don Porter * generic/tclExecute.c: Corrected INST_EXPON flaw that treated diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl index 12820db..2aa321e 100644 --- a/library/msgcat/msgcat.tcl +++ b/library/msgcat/msgcat.tcl @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: msgcat.tcl,v 1.24 2006/09/10 19:00:15 dgp Exp $ +# RCS: @(#) $Id: msgcat.tcl,v 1.25 2006/09/11 14:38:03 dgp Exp $ package require Tcl 8.5 # When the version number changes, be sure to update the pkgIndex.tcl file, @@ -196,15 +196,14 @@ proc msgcat::mc {src args} { if {[llength $args] == 0} { return [dict get $Msgs $loc $ns $src] } else { - return [uplevel 1 [list ::format \ - [dict get $Msgs $loc $ns $src] {expand}$args]] + return [format [dict get $Msgs $loc $ns $src] {expand}$args] } } } set ns [namespace parent $ns] } # we have not found the translation - return [uplevel 1 [list [::namespace origin mcunknown] \ + return [uplevel 1 [list [namespace origin mcunknown] \ $Locale $src {expand}$args]] } @@ -383,7 +382,7 @@ proc msgcat::mcmset {locale pairs } { proc msgcat::mcunknown {locale src args} { if {[llength $args]} { - return [uplevel 1 [list ::format $src {expand}$args]] + return [format $src {expand}$args] } else { return $src } -- cgit v0.12