X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..336369a5b94ae6588fb891606d37053f9fb8c2d6:/fth/history.fth diff --git a/fth/history.fth b/fth/history.fth index dfb7baa..5e5409e 100644 --- a/fth/history.fth +++ b/fth/history.fth @@ -421,9 +421,9 @@ variable KH-INSIDE ( true if we are scrolling inside the history buffer ) kh.inschar REPEAT drop kh-span @ kh-cursor @ - ?dup - IF 1+ tio.forwards ( move to end of line ) - ELSE space + IF tio.forwards ( move to end of line ) THEN + space flushemit ;