Key bindings

[Sean Hinde]

> edlin.erl doesn't do "previous line" and "next line" (perhaps 
> forgivable
> given its name) so back to hunting around..

Forgive me for I truly know not what I fiddle with.. erlang:display is my
new friend!

I present Up and Down by cursor keys (needs previous edlin patch).

Sean



--- group.erl.orig	Tue Nov 26 21:23:38 2002
+++ group.erl	Tue Nov 26 21:18:23 2002
@@ -190,7 +190,8 @@
     send_drv_reqs(Drv, Rs),
     put(line_buffer, [Line|lists:delete(Line, get(line_buffer))]),
     {done,Line,Rest};
-get_line1({undefined,{A,none,$\^P},Cs,Cont,Rs}, Drv, Ls0) ->
+get_line1({undefined,{A,Mode,Char},Cs,Cont,Rs}, Drv, Ls0) when ((Mode ==
none) and (Char == $\^P))
+						   or ((Mode ==
meta_left_sq_bracket) and (Char == $A)) ->
     send_drv_reqs(Drv, Rs),
     case up_stack(Ls0) of
 	{none,Ls} ->
@@ -205,7 +206,8 @@
 		      Drv,
 		      Ls)
     end;
-get_line1({undefined,{A,none,$\^N},Cs,Cont,Rs}, Drv, Ls0) ->
+get_line1({undefined,{A,Mode,Char},Cs,Cont,Rs}, Drv, Ls0) when ((Mode ==
none) and (Char == $\^N))
+						   or ((Mode ==
meta_left_sq_bracket) and (Char == $B)) ->
     send_drv_reqs(Drv, Rs),
     case down_stack(Ls0) of
 	{none,Ls} ->



NOTICE AND DISCLAIMER:
This email (including attachments) is confidential.  If you have received
this email in error please notify the sender immediately and delete this
email from your system without copying or disseminating it or placing any
reliance upon its contents.  We cannot accept liability for any breaches of
confidence arising through use of email.  Any opinions expressed in this
email (including attachments) are those of the author and do not necessarily
reflect our opinions.  We will not accept responsibility for any commitments
made by our employees outside the scope of our business.  We do not warrant
the accuracy or completeness of such information.