diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-05-24 12:23:52 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-05-24 12:23:52 (GMT) |
| commit | 5bd6dd53b688d13a70275daa5ae14814b8c69221 (patch) | |
| tree | 1332646ee0c2fa27bca16838e206d0222b8dbf59 /library | |
| parent | 23c320cea6647facf962db57c34c5cd85b9432b6 (diff) | |
| download | tcl-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.tcl | 14 |
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 } |