home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR36
/
KEXX.ZIP
/
TINDENT.KEX
< prev
next >
Wrap
Text File
|
1989-12-05
|
587b
|
33 lines
* Set Up Template Completion Support For Given File Extensions
X = ";"Upper(Arg(1))";"
Y = ""
* Replace any blanks with semicolons
Do I = 1 To Length(X)
Z = Substr(X, I, 1)
If Z \= ' '
Then
Y = Y || Z
Else
Y = Y";"
End
Templates = (Pos(';'FType.1()';', Y) \= 0)
* Set Space bar macros off for now
'Editv Setf IEscape ON'
'Editv Putf Templates'
* Don't do defines any more often than necessary
'Editv Get TIndent'
If TIndent = "ON"
Then
Exit
'Editv Set TIndent ON'
'Define TINDENT.KML'