\ The most recent entry is put at the beginning,
\ older entries are shifted up.
-4 constant KH_LINE_EXTRA_SIZE ( 2 count bytes plus 2 size bytes )
+4 constant KH_LINE_EXTRA_SIZE ( 2 count bytes plus 2 line_number bytes )
: KH-END ( -- addr , end of history buffer )
kh-history kh_history_size +
ENDCASE
;
-
: KH.SPECIAL.KEY ( char -- true | false , handle fkeys or arrows, true if handled )
true >r
CASE
THEN
;
+privatize
: AUTO.INIT
auto.init