au BufNewFile,BufRead *.sml setf sml
+" tests for perl modules
-+au BufNewFile,BufRead t/*.t call FTCheck_pl()
++au BufNewFile,BufRead t/*.t call s:FTpl()
+
- " Tads (or Nroff)
- au BufNewFile,BufRead *.t
- \ if !<SID>FTnroff() | setf tads | endif
+ " Sratus VOS command macro
+ au BufNewFile,BufRead *.cm setf voscm
+