projects
/
debian
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
pforth: allow header and code size to be controlled
[debian/pforth]
/
fth
/
history.fth
diff --git
a/fth/history.fth
b/fth/history.fth
index a61caaa3799c340f018543fd7e5cb67e26c148ba..42c269617c58322d9cc4d06edbc4dbf1df65fccc 100644
(file)
--- a/
fth/history.fth
+++ b/
fth/history.fth
@@
-51,7
+51,7
@@
KH-HISTORY kh_history_size erase
\ The most recent entry is put at the beginning,
\ older entries are shifted up.
\ 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 +
: KH-END ( -- addr , end of history buffer )
kh-history kh_history_size +
@@
-345,7
+345,6
@@
variable KH-INSIDE ( true if we are scrolling inside the history buffer )
ENDCASE
;
ENDCASE
;
-
: KH.SPECIAL.KEY ( char -- true | false , handle fkeys or arrows, true if handled )
true >r
CASE
: KH.SPECIAL.KEY ( char -- true | false , handle fkeys or arrows, true if handled )
true >r
CASE