diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-04 22:12:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-04 22:12:37 +0000 |
| commit | ea53889397cdeccecf3a61b9c20c953629026cd4 (patch) | |
| tree | 98241aeddb6c0cbae0496da7004f46875fd40a04 /perl-install/Xconfig | |
| parent | 7c6d4b3c60d8ac02d3d1bd3f06f034002267ba8a (diff) | |
| download | drakx-ea53889397cdeccecf3a61b9c20c953629026cd4.tar drakx-ea53889397cdeccecf3a61b9c20c953629026cd4.tar.gz drakx-ea53889397cdeccecf3a61b9c20c953629026cd4.tar.bz2 drakx-ea53889397cdeccecf3a61b9c20c953629026cd4.tar.xz drakx-ea53889397cdeccecf3a61b9c20c953629026cd4.zip | |
add XkbCompat "group_led" for all keyboards where a group layout switching is used
Diffstat (limited to 'perl-install/Xconfig')
| -rw-r--r-- | perl-install/Xconfig/parse.pm | 2 | ||||
| -rw-r--r-- | perl-install/Xconfig/xfreeX.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/Xconfig/parse.pm b/perl-install/Xconfig/parse.pm index 9f4b40bd5..aefc2742a 100644 --- a/perl-install/Xconfig/parse.pm +++ b/perl-install/Xconfig/parse.pm @@ -142,7 +142,7 @@ my %kind_names = ( WacomEraser => [ qw(Port) ], #-/ ServerLayout => [ qw(Identifier) ], ); -my @want_string = qw(Identifier DeviceName VendorName ModelName BoardName Driver Device Chipset Monitor Protocol XkbModel XkbLayout XkbOptions Load BusID); +my @want_string = qw(Identifier DeviceName VendorName ModelName BoardName Driver Device Chipset Monitor Protocol XkbModel XkbLayout XkbOptions XkbCompat Load BusID); %kind_names = map_each { lc $::a => [ map { lc } @$::b ] } %kind_names; @want_string = map { lc } @want_string; diff --git a/perl-install/Xconfig/xfreeX.pm b/perl-install/Xconfig/xfreeX.pm index 9b8744a4c..665b47177 100644 --- a/perl-install/Xconfig/xfreeX.pm +++ b/perl-install/Xconfig/xfreeX.pm @@ -52,7 +52,7 @@ sub get_monitor { $l[0] } -my @keyboard_fields = qw(XkbLayout XkbModel XkbDisable XkbOptions); +my @keyboard_fields = qw(XkbLayout XkbModel XkbDisable XkbOptions XkbCompat); sub get_keyboard { my ($raw_X) = @_; my $raw_kbd = $raw_X->get_keyboard_section; |