1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
# Try to bind ^L to clear the screen case $KSH_VERSION in *'93'*) bind() { case ${.sh.edchar} in $'\f') .sh.edchar=$'\e\f' ;; esac } trap bind KEYBD ;; *'MIRBSD KSH'*) bind ^L=clear-screen ;; *'PD KSH'*) bind -m '^L'='^U'clear'^J^Y' ;; esac