--- gforth/history.fs	2007/07/01 11:32:44	1.59
+++ gforth/history.fs	2007/07/19 13:28:18	1.62
@@ -203,8 +203,13 @@ require utf-8.fs
 Variable curpos
 Variable screenw
 
+: at-deltaxy ( dx dy -- )
+    #esc emit '[ emit  dup abs 0 .r 0< IF  'A  ELSE  'B  THEN  emit
+    #esc emit '[ emit  dup abs 0 .r 0< IF  'D  ELSE  'C  THEN  emit ;
+
 : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;
 : at-xy? ( -- x y )
+    key? drop \ make sure prep_terminal() is executed
     #esc emit ." [6n"  0 0
     BEGIN  key dup 'R <>  WHILE
 	    dup '; = IF  drop  swap  ELSE
@@ -318,7 +323,7 @@ Variable screenw
     ['] xclear-tib   ctrl K bindkey
     ['] xfirst-pos   ctrl A bindkey
     ['] xend-pos     ctrl E bindkey
-    ['] xretype      bl     bindkey
+    ['] xretype      ctrl L bindkey
     history IF  ['] (xenter)     #lf    bindkey  THEN
     history IF  ['] (xenter)     #cr    bindkey  THEN
     ['] xtab-expand  #tab   bindkey