Move ctrl to history.fs

parent a4eada4d
......@@ -363,16 +363,6 @@ set-current
\ integrate ekey into line editor
Variable vt100-modifier
: ctrl-i ( "<char>" -- c )
char toupper $40 xor ;
' ctrl-i
:noname
ctrl-i postpone Literal ;
interpret/compile: ctrl ( "<char>" -- ctrl-code )
' ekey is edit-key
\G True if a keyboard event is available.
......
......@@ -50,6 +50,14 @@ edit-terminal edit-out !
: bindkey ( xt key -- ) cells ctrlkeys + ! ;
: ebindkey ( xt key -- ) keycode-start - cells ekeys + ! ;
: ctrl-i ( "<char>" -- c )
char toupper $40 xor ;
' ctrl-i
:noname
ctrl-i postpone Literal ;
interpret/compile: ctrl ( "<char>" -- ctrl-code )
\ history support 16oct94py
0 Value history \ history file fid
......@@ -241,6 +249,8 @@ info-color Value setstring-color
max#tib @ span tib pos1 true EXIT THEN
max span addr pos1 false ;
Variable vt100-modifier
: (xins) ( max span addr pos1 xc -- max span addr pos2 )
>r r@ xc-size grow-tib 0= IF rdrop edit-error EXIT THEN
>edit-rest over r@ xc-size + swap move
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment