PDP-10 Archive: emacs/emacs.init from mit_emacs_170_teco_1220 (original) (raw)

Trailing-Edge-PDP-10 Archives-mit_emacs_170_teco_1220- emacs/emacs.init

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*!

fs rgetty-2"l
  @m(m.aTRMTYPInit File Set Terminal Type)'

FQ(0FO..QAuto Save Filenames)-1"L
  FS MSNAME:F6[0
  :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' > f..-fs^RInit-q..-"e Q0U..-' ]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.!

f[d file
1:< ER EMACS;SITE INIT
F[B BIND @Y M(HFX*(F]B BIND)) >
f]d file

1:<QFind File Inhibit Write m.vInhibit Write>

0[0 0[1 0[2

FS JNAME :F6 [J
F[D FILE

f~jHERMES"E f=Editor Typeermes]"N 
  1,m(m.m & Get Library Pointer)HERMES"e
     m(m.m Load Library)HERMES''
   '

FS LISPT"N FS CCL FNAMU0
    0FS SUPERIOR
    0U1 F~JSNDMSG"E f~ModeText"n M(M.M TEXT MODE)''
0U1 F~jLEDIT"e
 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'''

f~jTSEND"E
  0FS Superior
  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 !
  '
F]D FILE

!* 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! 0,0A- "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 7F(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 11F(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.

 ]1 ''' 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,!
  ER EC
  f[BBIND
  1:<1,111100000001.EZ0>"E J:X*FSDFILE'
  F]BBIND
  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.!