| version 1.35, Mon Dec 27 20:05:53 2004 UTC | version 1.36, Mon Dec 27 21:15:40 2004 UTC | ||
|---|---|---|---|
|
|
||
| prefix-found @ IF bl (ins) THEN 0 ; | prefix-found @ IF bl (ins) THEN 0 ; | ||
| : kill-prefix ( key -- key ) | : kill-prefix ( key -- key ) | ||
| dup #tab <> IF 0 0 prefix-found 2! THEN ; | dup #tab <> IF prefix-off THEN ; | ||
| [IFUNDEF] everyline defer everyline [THEN] | [IFUNDEF] everyline defer everyline [THEN] | ||
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |