summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorericm <ericm@noemail.net>2000-08-03 21:59:35 (GMT)
committerericm <ericm@noemail.net>2000-08-03 21:59:35 (GMT)
commitb90db7787ce55d1a4ad472c7f24b826e8a6de414 (patch)
tree5f75863ee93146a3cb71e0d1922a13189205915e /library
parent4f3922ae41c1fd6450226119c93d812dc09d4688 (diff)
downloadtcl-b90db7787ce55d1a4ad472c7f24b826e8a6de414.zip
tcl-b90db7787ce55d1a4ad472c7f24b826e8a6de414.tar.gz
tcl-b90db7787ce55d1a4ad472c7f24b826e8a6de414.tar.bz2
Finished backport of mcunknown fix for 8.3.2.
FossilOrigin-Name: dbab6ab30f168dfb8d6e1b2a02847fb1b9b4d664
Diffstat (limited to 'library')
-rw-r--r--library/msgcat/msgcat.tcl4
-rw-r--r--library/msgcat1.0/msgcat.tcl4
2 files changed, 4 insertions, 4 deletions
diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl
index cd78c23..f8749bc 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.4.2.1 2000/08/03 21:40:15 ericm Exp $
+# RCS: @(#) $Id: msgcat.tcl,v 1.4.2.2 2000/08/03 21:59:35 ericm Exp $
package provide msgcat 1.0
@@ -67,7 +67,7 @@ proc msgcat::mc {src args} {
}
# we have not found the translation
return [uplevel 1 [list [namespace origin mcunknown] \
- $::msgcat::locale $src]]
+ $::msgcat::locale $src] $args]
}
# msgcat::mclocale --
diff --git a/library/msgcat1.0/msgcat.tcl b/library/msgcat1.0/msgcat.tcl
index cd78c23..f8749bc 100644
--- a/library/msgcat1.0/msgcat.tcl
+++ b/library/msgcat1.0/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.4.2.1 2000/08/03 21:40:15 ericm Exp $
+# RCS: @(#) $Id: msgcat.tcl,v 1.4.2.2 2000/08/03 21:59:35 ericm Exp $
package provide msgcat 1.0
@@ -67,7 +67,7 @@ proc msgcat::mc {src args} {
}
# we have not found the translation
return [uplevel 1 [list [namespace origin mcunknown] \
- $::msgcat::locale $src]]
+ $::msgcat::locale $src] $args]
}
# msgcat::mclocale --