|
|
|
@ -373,14 +373,14 @@
|
|
|
|
|
config.keymap .km.name get
|
|
|
|
|
dup "_" strstr dup 0 eq {
|
|
|
|
|
pop
|
|
|
|
|
keymap.op "console-setup/layoutcode%s%s " bc.cmd dup length add sprintf
|
|
|
|
|
keymap.op "keyboard-configuration/layoutcode%s%s " bc.cmd dup length add sprintf
|
|
|
|
|
} {
|
|
|
|
|
over over 1 sub 0 put
|
|
|
|
|
over keymap.op "console-setup/layoutcode%s%s " bc.cmd dup length add sprintf
|
|
|
|
|
add keymap.op "console-setup/variantcode%s%s " bc.cmd dup length add sprintf
|
|
|
|
|
over keymap.op "keyboard-configuration/layoutcode%s%s " bc.cmd dup length add sprintf
|
|
|
|
|
add keymap.op "keyboard-configuration/variantcode%s%s " bc.cmd dup length add sprintf
|
|
|
|
|
} ifelse
|
|
|
|
|
config.keymap .km.model get dup {
|
|
|
|
|
keymap.op "console-setup/modelcode%s%s " bc.cmd dup length add sprintf
|
|
|
|
|
keymap.op "keyboard-configuration/modelcode%s%s " bc.cmd dup length add sprintf
|
|
|
|
|
} {
|
|
|
|
|
pop
|
|
|
|
|
} ifelse
|
|
|
|
|