summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-05-24 12:23:52 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-05-24 12:23:52 (GMT)
commit5bd6dd53b688d13a70275daa5ae14814b8c69221 (patch)
tree1332646ee0c2fa27bca16838e206d0222b8dbf59 /library
parent23c320cea6647facf962db57c34c5cd85b9432b6 (diff)
downloadtcl-5bd6dd53b688d13a70275daa5ae14814b8c69221.zip
tcl-5bd6dd53b688d13a70275daa5ae14814b8c69221.tar.gz
tcl-5bd6dd53b688d13a70275daa5ae14814b8c69221.tar.bz2
Remove some useless code from mcset and mcmset: [dict set] builds dictionary levels for us.
Diffstat (limited to 'library')
-rw-r--r--library/msgcat/msgcat.tcl14
1 files changed, 0 insertions, 14 deletions
diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl
index a9b4533..b39820a 100644
--- a/library/msgcat/msgcat.tcl
+++ b/library/msgcat/msgcat.tcl
@@ -313,13 +313,6 @@ proc msgcat::mcset {locale src {dest ""}} {
set locale [string tolower $locale]
- # create nested dictionaries if they do not exist
- if {![dict exists $Msgs $locale]} {
- dict set Msgs $locale [dict create]
- }
- if {![dict exists $Msgs $locale $ns]} {
- dict set Msgs $locale $ns [dict create]
- }
dict set Msgs $locale $ns $src $dest
return $dest
}
@@ -347,13 +340,6 @@ proc msgcat::mcmset {locale pairs } {
set locale [string tolower $locale]
set ns [uplevel 1 [list ::namespace current]]
- # create nested dictionaries if they do not exist
- if {![dict exists $Msgs $locale]} {
- dict set Msgs $locale [dict create]
- }
- if {![dict exists $Msgs $locale $ns]} {
- dict set Msgs $locale $ns [dict create]
- }
foreach {src dest} $pairs {
dict set Msgs $locale $ns $src $dest
}