diff options
| -rw-r--r-- | perl-install/lang.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index c1839c604..91d3bf4b1 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -504,7 +504,9 @@ my %gtkqt_im = XMODIFIERS => '@im=fcitx', }, 'im-ja' => { - GTK_IM_MODULE => 'im-ja', # 'im-ja-xim-server', + GTK_IM_MODULE => 'im-ja', + XIM => 'im-ja-xim-server', + XIM_PROGRAM => 'im-ja-xim-server', XMODIFIERS => '@im=im-ja-xim-server', }, @@ -956,7 +958,7 @@ sub read { my $locale = system_locales_to_ourlocale($h{LC_MESSAGES} || 'en_US', $h{LC_MONETARY} || 'en_US'); if ($h{XIM_PROGRAM}) { - $locale->{IM} = find { $gtkqt_im{$_}{XIM_PROGRAM} eq $locale->{XIM_PROGRAM} } keys %gtkqt_im; + $locale->{IM} = find { $gtkqt_im{$_}{XIM_PROGRAM} eq $h{XIM_PROGRAM} } keys %gtkqt_im; } $locale; } |