From f1f2bd0b0a244afc07cfd602a6357efaebf844e3 Mon Sep 17 00:00:00 2001
From: Eric Andersen <andersen@codepoet.org>
Date: Fri, 21 Dec 2001 11:20:15 +0000
Subject: Patch from vodz to implement ^L (clear screen)

---
 shell/cmdedit.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'shell/cmdedit.c')

diff --git a/shell/cmdedit.c b/shell/cmdedit.c
index b90891587..d4d6264d0 100644
--- a/shell/cmdedit.c
+++ b/shell/cmdedit.c
@@ -1263,6 +1263,16 @@ prepare_to_die:
 			input_tab(&lastWasTab);
 #endif
 			break;
+		case 12:
+			/* Control-l -- clear screen
+			 * if the len=0 and no chars in edit line */
+			if (len == 0) {
+				printf("\033[H\033[J");
+				put_prompt();
+			} else {
+				beep();
+			}
+			break;
 		case 14:
 			/* Control-n -- Get next command in history */
 			if (hp && hp->n && hp->n->s) {
@@ -1288,7 +1298,6 @@ prepare_to_die:
 				redraw(cmdedit_y, len -= cursor);
 			}
 			break;
-
 		case ESC:{
 			/* escape sequence follows */
 			if (safe_read(0, &c, 1) < 1)
-- 
cgit v1.2.3