From: Aurélien Aptel <aurelien.aptel@gmail.com>
Date: Sun, 29 Aug 2010 23:19:05 +0000 (+0200)
Subject: removed old VT52 escapes, fixed VT100 IND.
X-Git-Url: https://git.owens.tech/about.html/about.html/git?a=commitdiff_plain;h=1f6e7b84c6131612cb8cb7751a2b373af9957c6d;p=st.git

removed old VT52 escapes, fixed VT100 IND.
---

diff --git a/st.c b/st.c
index 5c7d855..6a51581 100644
--- a/st.c
+++ b/st.c
@@ -867,20 +867,11 @@ tputc(char c) {
 			case '(':
 				term.esc |= ESC_ALTCHARSET;
 				break;
-			case 'A':
-				tmoveto(term.c.x, term.c.y-1);
-				term.esc = 0;
-				break;
-			case 'B':
-				tmoveto(term.c.x, term.c.y+1);
-				term.esc = 0;
-				break;
-			case 'C':
-				tmoveto(term.c.x+1, term.c.y);
-				term.esc = 0;
-				break;
-			case 'D': /* XXX: CUP (VT100) or IND (VT52) ... */
-				tmoveto(term.c.x-1, term.c.y);
+			case 'D': /* IND -- Linefeed */
+				if(term.c.y == term.bot)
+					tscrollup(1);
+				else
+					tmoveto(term.c.x, term.c.y+1);
 				term.esc = 0;
 				break;
 			case 'E': /* NEL -- Next line */