[PD-cvs] pd/src desire.tk,1.1.2.274,1.1.2.275

[Mathieu Bouchard]

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
  }