home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR36 / KEXX.ZIP / TINDENT.KEX < prev    next >
Text File  |  1989-12-05  |  587b  |  33 lines
  1. * Set Up Template Completion Support For Given File Extensions
  2.  
  3. X = ";"Upper(Arg(1))";"
  4. Y = ""
  5.  
  6. * Replace any blanks with semicolons
  7. Do I = 1 To Length(X)
  8.  
  9.     Z = Substr(X, I, 1)
  10.     If Z \= ' '
  11.         Then
  12.             Y = Y || Z
  13.         Else
  14.             Y = Y";"
  15.  
  16. End
  17.  
  18. Templates = (Pos(';'FType.1()';', Y) \= 0)
  19.  
  20. * Set Space bar macros off for now
  21. 'Editv Setf IEscape ON'
  22.  
  23. 'Editv Putf Templates'
  24.  
  25. * Don't do defines any more often than necessary
  26. 'Editv Get TIndent'
  27. If TIndent = "ON"
  28.     Then
  29.         Exit
  30.  
  31. 'Editv Set TIndent ON'
  32. 'Define TINDENT.KML'
  33.