From 304b47c101cd50d019b6021352723ad26e411204 Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Sun, 25 Apr 2004 21:23:27 +0000
Subject: collapse \r\r\r\r => \r.

---
 src/cmd/9term/9term.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/cmd/9term/9term.c b/src/cmd/9term/9term.c
index 5fab0401..feef6b68 100644
--- a/src/cmd/9term/9term.c
+++ b/src/cmd/9term/9term.c
@@ -229,7 +229,7 @@ threadmain(int argc, char *argv[])
 		maxtab = 4;	/* be like rio */
 
 	snprint(buf, sizeof buf, "%d", maxtab);
-	putenv("tabstop", maxtab);
+	putenv("tabstop", buf);
 
 	initdraw(0, nil, "9term");
 	notify(hangupnote);
@@ -1080,6 +1080,10 @@ runewrite(Rune *r, int n)
 		} else if(*p == '\r') {	/* treat like ^U */
 			/* convert CR without NL into erased line */
 			/* i feel really sleazy about this but it helps */
+			while(i<n-1 && *(p+1) == '\r'){
+				i++;
+				p++;
+			}
 			if(i<n-1 && *(p+1) != '\n'){
 				while(q > r && *(q-1) != '\n')
 					q--;
-- 
cgit v1.2.3