fix \r

src/cmd/9term/wind.c

diff --git a/src/cmd/9term/wind.c b/src/cmd/9term/wind.c
index e9d7ab0..fae6756 100644
--- a/src/cmd/9term/wind.c
+++ b/src/cmd/9term/wind.c
@@ -350,7 +350,7 @@
 						while(up > rp && *(up-1) != '\n')
 							up--;
 						if(up == rp)
-							initial = wbswidth(w, 0x15);
+							initial = wbswidth(w, '\r');
 					}else if(i == nr-1)
 						*up = '\n';
 					break;
@@ -757,7 +757,7 @@
 	while(q > stop){
 		r = w->r[q-1];
 		if(r == '\n'){		/* eat at most one more character */
-			if(q == w->q0)	/* eat the newline */
+			if(q == w->q0 && c != '\r')	/* eat the newline */
 				--q;
 			break; 
 		}