| 27 constant #esc |
27 constant #esc |
| |
|
| : esc-prefix ( -- u ) |
: esc-prefix ( -- u ) |
| |
key? if |
| key ekey-buffered char-append-buffer |
key ekey-buffered char-append-buffer |
| ekey-buffered 2@ esc-sequences search-wordlist |
ekey-buffered 2@ esc-sequences search-wordlist |
| if |
if |
| execute exit |
execute exit |
| else |
endif |
| ekey-buffered 2@ unkeys #esc |
endif |
| then ; |
ekey-buffered 2@ unkeys #esc ; |
| |
|
| : esc-sequence ( xt addr u -- ; name execution: -- u ) recursive |
: esc-sequence ( xt addr u -- ; name execution: -- u ) recursive |
| \ define key "name" and all prefixes |
\ define key "name" and all prefixes |
