!* -*- TECO -*- Mode !
1fsinvmod			    !* Inverse mode line !
fs %TOFCI"e	    !* If you don't have Top, it's hard to press Top-H!
  128+_fsHelpChar'		    !* So use  !

1m.v Inhibit Help Message
fqEditor Type"g'		    !* Unless a type is set, !
  "# fs Machine:f6m.v Editor Type'	    !* put machine in mode line!

!* Protection against disasters:
  By default, make all file buffers read-only,
  but undo it for home directory, HACK, and .TEMP.
!
  
fs hsname:f6[2
@:i*/ m.m ^R Set File Read-Only[0
     -1m0
      fs DSname:f6[1
      f=12"e m0'
        "# f=1HACK"e m0'
	   #' f=1.TEMP."e m0'''
      ]1]0/ m.v Visit File Hook
]2

!* completion on variable and buffer names !
m(m.m Load Library)COMPLT

:i* [1 m.m ^R Just One Spaceu..1 ]1    !* Meta-Space!
m.m Save All Filesu:.x(S)	    !* C-X S !

!* and read standard init file !
er emacs;emacs init @y :m(hfx*)