12bbb66931
git-subtree-dir: cde/programs/dtksh/ksh93 git-subtree-split: 66e1d446429543be0f9d47d9364e472932dc53f1
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
|
|
}
|