version 1.5, 2001/10/26 11:53:21
|
version 1.6, 2002/06/02 10:31:28
|
Line 120 create ekey-buffer 8 chars allot
|
Line 120 create ekey-buffer 8 chars allot
|
27 constant #esc |
27 constant #esc |
|
|
: esc-prefix ( -- u ) |
: esc-prefix ( -- u ) |
key ekey-buffered char-append-buffer |
key? if |
ekey-buffered 2@ esc-sequences search-wordlist |
key ekey-buffered char-append-buffer |
if |
ekey-buffered 2@ esc-sequences search-wordlist |
execute exit |
if |
else |
execute exit |
ekey-buffered 2@ unkeys #esc |
endif |
then ; |
endif |
|
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 |