Browse Source

[Fix #61] Replace ^H (backspace) with ^? (del)

master
Sorin Ionescu 13 years ago
parent
commit
06299a06fb
  1. 7
      keyboard.zsh

7
keyboard.zsh

@ -38,6 +38,8 @@ keyinfo=(
'Control' '\C-' 'Control' '\C-'
'Escape' '\e' 'Escape' '\e'
'Meta' '\M-' 'Meta' '\M-'
'Backspace' "^?"
'Delete' "^[[3~"
'F1' "$terminfo[kf1]" 'F1' "$terminfo[kf1]"
'F2' "$terminfo[kf2]" 'F2' "$terminfo[kf2]"
'F3' "$terminfo[kf3]" 'F3' "$terminfo[kf3]"
@ -50,11 +52,9 @@ keyinfo=(
'F10' "$terminfo[kf10]" 'F10' "$terminfo[kf10]"
'F11' "$terminfo[kf11]" 'F11' "$terminfo[kf11]"
'F12' "$terminfo[kf12]" 'F12' "$terminfo[kf12]"
'Backspace' "$terminfo[kbs]"
'Insert' "$terminfo[kich1]" 'Insert' "$terminfo[kich1]"
'Home' "$terminfo[khome]" 'Home' "$terminfo[khome]"
'PageUp' "$terminfo[kpp]" 'PageUp' "$terminfo[kpp]"
'Delete' "$terminfo[kdch1]"
'End' "$terminfo[kend]" 'End' "$terminfo[kend]"
'PageDown' "$terminfo[knp]" 'PageDown' "$terminfo[knp]"
'Up' "$terminfo[kcuu1]" 'Up' "$terminfo[kcuu1]"
@ -221,8 +221,7 @@ for keymap in 'emacs' 'viins'; do
[[ -n "$keyinfo[Delete]" ]] && \ [[ -n "$keyinfo[Delete]" ]] && \
bindkey -M "$keymap" "$keyinfo[Delete]" delete-char bindkey -M "$keymap" "$keyinfo[Delete]" delete-char
[[ -n "$keyinfo[Backspace]" ]] && \ [[ -n "$keyinfo[Backspace]" ]] && \
bindkey -M "$keymap" "$keyinfo[Backspace]" backward-delete-char && \ bindkey -M "$keymap" "$keyinfo[Backspace]" backward-delete-char
stty erase "$keyinfo[Backspace]"
[[ -n "$keyinfo[Left]" ]] && \ [[ -n "$keyinfo[Left]" ]] && \
bindkey -M "$keymap" "$keyinfo[Left]" backward-char bindkey -M "$keymap" "$keyinfo[Left]" backward-char

Loading…
Cancel
Save