From 3ee57042e41a290edaf171cfe53332a0b2034f01 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Fri, 6 Jan 2017 19:42:09 +1300
Subject: Found workable ^L bindings in all three kshes

---
 ksh/kshrc.d/bind.ksh | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

(limited to 'ksh')

diff --git a/ksh/kshrc.d/bind.ksh b/ksh/kshrc.d/bind.ksh
index e32b9565..af024fb9 100644
--- a/ksh/kshrc.d/bind.ksh
+++ b/ksh/kshrc.d/bind.ksh
@@ -1,12 +1,6 @@
 # Try to bind ^L to clear the screen
 case $KSH_VERSION in
 
-    # Works great
-    *'MIRBSD KSH'*)
-        bind ^L=clear-screen
-        ;;
-
-    # Works great
     *'93'*)
         bind() {
             case ${.sh.edchar} in
@@ -16,8 +10,12 @@ case $KSH_VERSION in
         trap bind KEYBD
         ;;
 
-    # Works pretty well, but only on an empty line
+    *'MIRBSD KSH'*)
+        bind ^L=clear-screen
+        ;;
+
     *'PD KSH'*)
-        bind -m '^L'=clear'^J'
+        bind -m '^L'='^U'clear'^J^Y'
         ;;
+
 esac
-- 
cgit v1.2.3