acme: handle ^A, ^E keys

2 files changed, 15 insertions, 0 deletions

diff --git a/appl/acme/text.b b/appl/acme/text.b
index 0aa0d482..7fdce3f3 100644
--- a/appl/acme/text.b
+++ b/appl/acme/text.b
@@ -746,6 +746,21 @@ Text.typex(t : self ref Text, r : int, echomode : int)
 			else if(t.q1 != t.file.buf.nc)
 				t.show(t.q1+1, t.q1+1, TRUE);
 			return;
+		1 =>  	# ^A: beginning of line
+			t.commit(TRUE);
+			# go to where ^U would erase, if not already at BOL
+			nnb = 0;
+			if(t.q0>0 && t.readc(t.q0-1)!='\n')
+				nnb = t.bswidth(16r15);
+			t.show(t.q0-nnb, t.q0-nnb, TRUE);
+			return;
+		5 =>  	# ^E: end of line
+			t.commit(TRUE);
+			q0 = t.q0;
+			while(q0<t.file.buf.nc && t.readc(q0)!='\n')
+				q0++;
+			t.show(q0, q0, TRUE);
+			return;
 	}
 	if(t.what == Body){
 		seq++;
diff --git a/dis/acme/text.dis b/dis/acme/text.dis
index 09c28b5d..2054aa8f 100644
--- a/dis/acme/text.dis
+++ b/dis/acme/text.dis