summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/lang.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index e8074a542..8f3237d1c 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -512,6 +512,8 @@ my %gtkqt_im =
chinput => {
GTK_IM_MODULE => 'xim',
XIM => 'chinput',
+ # bogus entry overwriten by %im_xim_program, just for read()
+ XIM_PROGRAM => 'chinput',
XMODIFIERS => '@im=Chinput',
},
fctix => {
@@ -954,6 +956,7 @@ sub read {
if ($h{XIM_PROGRAM}) {
$locale->{IM} = find { $gtkqt_im{$_}{XIM_PROGRAM} eq $h{XIM_PROGRAM} } keys %gtkqt_im;
+ $locale->{IM} ||= find { member($h{XIM_PROGRAM}, values %{$im_xim_program{$_}}) } keys %im_xim_program;
}
$locale;
}