3 files changed, 0 insertions, 34 deletions
diff --git a/lib/Xconfig/default.pm b/lib/Xconfig/default.pm
index e50d9f9..722ff35 100644
--- a/lib/Xconfig/default.pm
+++ b/lib/Xconfig/default.pm
@@ -24,7 +24,6 @@ sub configure {
 
     $raw_X->add_load_module($_) foreach qw(dbe v4l extmod);
 
-    config_keyboard($raw_X, $keyboard);
     config_mouse($raw_X, $do_pkgs, $mouse);
 
     $raw_X;
@@ -36,10 +35,5 @@ sub config_mouse {
     mouse::various_xfree_conf($do_pkgs, $mouse);
 }
 
-sub config_keyboard {
-    my ($raw_X, $keyboard) = @_;
-    $raw_X->set_keyboard(keyboard::keyboard2full_xkb($keyboard));
-}
-
 1;
 
diff --git a/lib/Xconfig/xfree.pm b/lib/Xconfig/xfree.pm
index f03bc88..b248b7f 100644
--- a/lib/Xconfig/xfree.pm
+++ b/lib/Xconfig/xfree.pm
@@ -98,12 +98,6 @@ sub get_keyboard {
     my $raw_kbd = _raw_get_keyboard($raw_X) or die "no keyboard section";
     raw_export_section($raw_kbd, \@keyboard_fields);
 }
-sub set_keyboard {
-    my ($raw_X, $kbd) = @_;
-    my $raw_kbd = _raw_get_keyboard($raw_X) || _new_keyboard_section($raw_X);
-    raw_import_section($raw_kbd, $kbd);
-    _set_Option('keyboard', $raw_kbd, keys %$kbd);
-}
 sub _raw_get_keyboard {
     my ($raw_X) = @_;
     first($raw_X->get_Sections('InputDevice', sub { 
@@ -112,17 +106,6 @@ sub _raw_get_keyboard {
 	$Driver eq 'kbd' || $Driver eq 'evdev' && val($entry->{XkbLayout});
     }));
 }
-sub _new_keyboard_section {
-    my ($raw_X) = @_;
-    my $raw_kbd = { Identifier => { val => 'Keyboard1' }, Driver => { val => 'kbd' } };
-    $raw_X->add_Section('InputDevice', $raw_kbd);
-
-    my $layout = get_ServerLayout($raw_X)->{InputDevice} ||= [];
-    push @$layout, { val => '"Keyboard1" "CoreKeyboard"' };
-
-    $raw_kbd;
-}
-
 
 ################################################################################
 # mouse ########################################################################
diff --git a/lib/keyboard.pm b/lib/keyboard.pm
index 387f20e..03d5b56 100644
--- a/lib/keyboard.pm
+++ b/lib/keyboard.pm
@@ -621,20 +621,9 @@ sub write {
     run_program::run('mandriva-setup-keyboard');
 }
 
-sub _configure_xorg {
-    my ($keyboard) = @_;
-
-    require Xconfig::default;
-    if (my $xfree_conf = Xconfig::xfree->read) {
-	Xconfig::default::config_keyboard($xfree_conf, $keyboard);
-	$xfree_conf->write;
-    }
-}
-
 sub configure_and_set_standalone {
     my ($keyboard) = @_;
 
-    _configure_xorg($keyboard);
     _setxkbmap($keyboard);
 
     &write($keyboard);