97ef0077f0
git-subtree-dir: cde/programs/dtksh/ksh93 git-subtree-split: b16c91f0120895eaae2618e821cac5b4eda27ac2
15 lines
282 B
Plaintext
15 lines
282 B
Plaintext
typeset -A Keytable
|
|
trap 'eval "${Keytable[${.sh.edchar}]}"' KEYBD
|
|
function keybind # key action
|
|
{
|
|
typeset key=$(print -f "%q" "$2")
|
|
case $# in
|
|
2) Keytable[$1]='.sh.edchar=${.sh.edmode}'"$key"
|
|
;;
|
|
1) unset Keytable[$1]
|
|
;;
|
|
*) print -u2 "Usage: $0 key [action]"
|
|
;;
|
|
esac
|
|
}
|