There are 2 other files named emacs.init in the archive. Click here to see a list.
!* -*-TECO-*- *!
!* This is the default init file for EMACS on Twenex.
Anything in the buffer when you start this
will be used instead of the JCL.
It is usually a bad idea for users to copy this with changes.
Instead you should make a small init file
which calls this one at the end,
as described in INFO:CONV.INFO. *!
FS QP PTR[9 !* Somethings might want to unwind the PDL!
!* at the end of the init. Mainly for JCL!
!* Ask to Set terminal type if printing or glass terminal*!
@m(m.aTRMTYPInit File Set Terminal Type)'
FQ(0FO..QAuto Save Filenames)-1"L
:I*DSK:0;[SAVE] > M.VAuto Save Filenames ]0'
ETDSK:DEFALT.FILNAM FS MSNAME FS D SNAME
!* 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' >
]2 ]1 ]0'
!* Now it's ok to process the EVARS file and risk an error. 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) !* EMACS.VARS.!
1m.vInit Vars Processedw' !* Do not do it again.!
!* If EMACS:SITE.INIT exists, execute it.!
!* Site-specific changes to initialization can go there.!
1:< ER EMACS;SITE INIT
F[B BIND @Y M(HFX*(F]B BIND)) >
1:<QFind File Inhibit Write m.vInhibit Write>
0[0 0[1 0[2
FS JNAME :F6 [J
f~jHERMES"E f=Editor Type[Hermes]"N
1,m(m.m & Get Library Pointer)HERMES"e
m(m.m Load Library)HERMES''
FS LISPT"N FS CCL FNAMU0
0U1 F~JSNDMSG"E f~ModeText"n M(M.M TEXT MODE)''
1, m(m.m & Get Library Pointer)LEDIT"e
m(m.m Load Library)LEDIT'''
F~JMM"E F=EDITOR TYPEMMAIL"N
1, m(m.m & Get Library Pointer)MMAIL"e
M(M.M Load Library)MMAIL'''
1FS Case !* upper case only !
1FS Case Now
M(M.M Text Mode) !* use TEXT mode for TSEND !
M(M.M Auto Fill Mode) !* use auto fill mode to prevent !
69M.VFill Column !* lines over 69 characters long !
!* Process the JCL!
Z"E FJ J @F
K' !* Get JCL, or use whatever previous init file left in buffer.!
!* Flush leading spaces and CRLF if line is empty.!
ZJ ."N !* Process JCL command - extract filenames and commands!
"E -D' !* REMOVE CR AND LF AT END IF ANY *!
"E -D' 0,0A-
J :S$"N .,Z@FX1 -D' !* IF COMMANDS TO EXECUTE, PUT THEM IN Q1!
J 7 F~(FILE) "E 7D' !* Delete stupid noise word.!
J < :S !; -D .,(S! .)K > !* Delete stupid confirmations.!
!* Printing them out is reasonable,!
!* but passing them to EMACS is stupid.!
:S B,.FX0 !* If name of file to read, put in Q0.!
< @F K
11 F~(OUTPUT AS)"E 11D' !* Delete (OUTPUT AS) if stupid EXEC fed it to us.!
"# 0,1A-["E .,(S] .)K' !* Delete any confirmation string shit.!
"# 0;'' > !* If we delete one turd, check for others.!
Z"N HFX2' !* If name of file to output as, put in Q2.!
HK 0FS MODIFIEDw 0FS XMODIFIED
0FO..Q Inhibit Help Message"E
Q0"E Q1"E !* If no commands or file to read, offer help.!
qEMACS Version:\[1 !* get version no. as string!
FTEMACS Editor, version 1 - type C-M-? (the HELP sequence C-Z ?) for help.
FQ0-1"L Q1"N M1' !* No file specified => execute commands from JCL!
' !* and return.!
1:< !* maybe we got an unwanted version #.!
Q0F[ DFILE 0 FS DVERSU3 !* So open to the highest version,!
FS IF VERS-Q3"N Q3 FS DVERS'!* and if it is the version we got,!
FS DFILE U0 F]D FILE' !* return the file with a zero version.!
0fo..qTags Find File"e
QInhibit Write,M(M.M Visit File)0' !* Visit specified file.!
"# m(m.mFind File)0' !* unless user usually likes Find File,!
!* in which case use that instead.!
Q2"N Q2F[ DFILE 0 FS DVERS
FS DFILEU2 F]D FILE !* Reset version number defaults.!
M(M.M Set Visited Filename)2' !* Set filename as specified.!
Q1"N M1' !* If JCL held commands, execute them.!