Form submission handler for system_regional_settings().
language_form_system_regional_settings_alter()
function language_system_regional_settings_form_submit($form, &$form_state) {
$languages = language_list();
$language = $languages[$form_state['values']['site_default_language']];
$language->default = TRUE;
language_save($language);
}