\ The most recent entry is put at the beginning,\r
\ older entries are shifted up.\r
\r
+4 constant KH_LINE_EXTRA_SIZE ( 2 count bytes plus 2 size bytes )\r
+\r
: KH-END ( -- addr , end of history buffer )\r
kh-history kh_history_size +\r
;\r
>r ( save count )\r
\ Set look pointer to point to first count byte of last string.\r
0 kh-look !\r
- r@ cell+ kh.make.room\r
+\ Make room for this line of text and line header. \r
+\ PLB20100823 Was cell+ which broke on 64-bit code.\r
+ r@ KH_LINE_EXTRA_SIZE + kh.make.room\r
\ Set count bytes at beginning and end.\r
r@ kh-history c! ( start count )\r
r@ kh.endcount.addr c!\r
kh.inschar\r
REPEAT drop\r
kh-span @ kh-cursor @ - ?dup\r
- IF 1+ tio.forwards ( move to end of line )\r
- ELSE space\r
+ IF tio.forwards ( move to end of line )\r
THEN\r
+ space\r
flushemit\r
;\r
\r