Apple-2gs-SW/hush
1
0
Fork 0
mirror of https://github.com/sheumann/hush.git synced 2024-06-11 19:29:36 +00:00
Code Issues Projects Releases Wiki Activity

Patch from vodz to implement ^L (clear screen)

Browse Source
This commit is contained in:
Eric Andersen 2001-12-21 11:20:15 +00:00
parent 9910cd2869
commit f1f2bd0b0a
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
shell/cmdedit.c
View File

@ -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)