!* -*-TECO-*- *!

!* This is the default init file for EMACS.
   Anything in the buffer when you start this
   will be used instead of the JCL.

It is generally a bad idea to try to make an init file
by copying this one with changes.  The right way, usually, is
to make your own small init file which jumps to this one at the end,
as described in INFO;CONV >. *!

    fs qp ptr[9		    !* save pdl pointer for unwinding!

    FQ(0FO..QAuto Save Filenames)-1"L
      FS MSNAME:F6[0
      :I*DSK:0;_SAV00 > M.VAuto Save Filenames ]0'

!* On non-meta keyboards, allow Alt 1 2 to mean an arg of 12, as long as user!
!* has not reconnected meta-digits.  Similarly for meta-minus.!
    FS %TOFCI"E				!* 9-bit keyboard.!
      M.M ^R Autoarg[0 460.-1[1 f..0fs^RInit[2
      10< %1@fs^RCMac-q2"e q0,q1@fs^RCMac' >
      f..-fs^RInit-q..-"e Q0U..-'
      ]2 ]1 ]0'

    fsxunamef(:f6[1)-(fshsname)"e et.FOO. >'"# et1 >' ]1
    FS MSNAME FS D SNAME

!* Now we have done enough that things will be OK if the EVARS file gets an!
!* error and throws back to the ^R.  The EVARS file should not be processed!
!* twice, e.g. in case it loads libraries, and a dumped EMACS should be able!
!* to jump to the default init.  Hence the variable check.!

    0fo..qInit Vars Processed"e	!* If not yet done it, process!
      M(M.M & Process Init Vars)	!* FOO;FOO EVARS or EMACS.VARS.!
      1m.vInit Vars Processedw'	!* Do not do it again.!

    FS XJNAME :F6 [J
    F[D FILE
    FS %OPLSP
(F~JLISPT"'E)
(F~JMACST"'E)"N
       1,M(M.M& Get Library Pointer)LISPT"e	!* Load LISPT if not!
          m(m.m Load Library)LISPT''	    	!* loaded already.!
    F~JMAILT "E :IEditor TypeMAILT
	:iDefault Major ModeText
	f~ModeText"n M(M.MTEXT MODE)' fr	!* Text mode if not in it yet.!
	0FO..Q Inhibit Help Message"E
	  FTEdit escape from :MAIL to EMACS.  Type ^C^C to return to MAIL.
''
    F]D FILE

    1:< QFind File Inhibit Write UInhibit Write >
    1:< F=(FS XUNAME:F6)KLOTZ"E
        QText Mode Hook[1 q1m.vOld Text Mode Hook
	@:i*|QOld Text Mode Hook[1 M1 Q1uText Mode Hook	     
	     FS CLK MACROM.VOlder FS CLK Macro
             @:i*\@:SYS2;WHOLIN
$P
	          QOlder FS CLK MACROFS CLK MACRO
		  m(m.mKill Variable)Older FS CLK MACRO
		  m(m.mKill Variable)Old Text Mode Hook
		  :M(FS CLK MACRO)\FS CLK MACRO
	     60*30FS CLK INTERVAL|M.VText Mode Hookw'>
!* Process the JCL!
    0[0 0[1
    Z"E FJ' ZJ			!* Get JCL, or use whatever previous init file left in buffer.!
    ."N				!* Process JCL command - extract filenames and commands!
       0,-1A-î"E -2D'	    !* REMOVE CRLF AT END IF ANY *!
       J :S"N .,Z^ FX1 -D'	    !* IF COMMANDS TO EXECUTE, PUT THEM IN Q1!
       HFX0'			    !* IF FILE TO BE READ, PUT NAME IN Q0!
    HK 0FS MODIFIED
    0FO..Q Inhibit Help Message"E
      Q0"E Q1"E			    !* If no commands / file to read, offer help.!
	qEMACS Version:\[1	    !* get version no. as string!
	FTEMACS Editor, version 1 - type Help
	FS %TOFCI"N FT(Top-H)'
	"# FT(^_H)'
	FT for help.
	]1
	'''
    FQ0"G
	0fo..qTags Find File"e
	  QInhibit Write, M(M.M Visit File)0' !* Visit file specified.!
	"# m(m.mFind File)0''   !* unless user generally likes Find File,!
				    !* in which case use it!
    Q1"N M1'			    !* Execute any commands from JCL!
    q9fsqpunwind