From e88b31fecb94d372c66bcfb79607a651d4a5e686 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 18 Aug 2004 10:21:23 +0000
Subject: fix default IM setting when switching language

---
 perl-install/lang.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'perl-install/lang.pm')

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 09b2992cf..6e8c233b0 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -624,10 +624,20 @@ my %xim = (
 #-  },
 );
 
+my %default_im;
+
+sub get_default_im {
+    my ($lang) = @_;
+    $default_im{$lang}{IM};
+}
+
 sub set_default_im {
     my ($im, @langs) = @_;
     add2hash($xim{$_}, $gtkqt_im{$im}) foreach @langs;
     add2hash($xim{$_}, { XIM_PROGRAM => $im_xim_program{$im}{$_} }) foreach @langs;
+    foreach (@langs) {
+        $default_im{$_}{IM} = $im foreach $_, analyse_locale_name($_)->{main};
+    }
 }
 
 set_default_im('x-unikey',  qw(vi_VN vi_VN.TCVN vi_VN.UTF-8 vi_VN.VISCII));
-- 
cgit v1.2.1