Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3463
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixed autodetection of locale
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.274 retrieving revision 1.1.2.275 diff -C2 -d -r1.1.2.274 -r1.1.2.275 *** desire.tk 3 Jul 2006 19:19:24 -0000 1.1.2.274 --- desire.tk 3 Jul 2006 19:36:38 -0000 1.1.2.275 *************** *** 313,319 ****
proc guess_lang {} { ! if {[info exist env(LANG)]} {return $env(LANG)} ! if {[info exist env(LC_ALL)]} {return $env(LC_ALL)} ! return C }
--- 313,322 ----
proc guess_lang {} { ! global env ! set lang C ! if {[info exist env(LC_ALL)]} {set lang $env(LC_ALL)} ! if {[info exist env(LANG)]} {set lang $env(LANG)} ! set lang [lindex [split $lang {[_.]}] 0] ! return $lang }