Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

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

    FS QP PTR[9 0[5		    !* Q5 := Flag for generation number reset!

    1:< M(M.M & Process Init Vars) > !* Process EMACS.VARS.!

    Q..9"E Q..LU..9'		    !* ..9 is what to run on the way out.!
				    !* In recent EMACS versions, it should be empty.!
				    !* This is here only for compatibility!
				    !* with old EMACS versions.!

    FS OSTECO"E
      FQ(0FO..QAuto Save Filenames)-1"L    !* ITS!
        FS MSNAME:F6[0
        :I*DSK:0;_^RSV > M.VAuto Save Filenames ]0''
    "# FQ(0FO..QAuto Save Filenames)-1"L   !* TOPS-20!
        FS XUNAME:F6[0		    !* User name !
        FS MSNAME:F6[1		    !* Connected directory !
        :I*1EMACS-0.AUTO-SAVE-FILE M.VAuto Save Filenames ]1]0''
    0fo..qMail Reader Program"e :i*MSm.vMail Reader Program'	    !* Default to MS!

    fs xjname :f6 [j
    fs msname fs d sname et dsk:foo >

    QFind File Inhibit Write UInhibit Write

!* On non-meta keyboards, allow Alt 1 2 to mean an arg of 12.!
    FS %TOFCI"E
      M.M ^R Autoarg[0 460.-1[1
      10< Q0,%1^ FS ^R CMAC>  Q0U..-
      ]1 ]0'

!* Process the JCL!
    0[0 0[1 0[2
    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.!
       '
    FS LISPT"N FS CCL FNAMU0
        0FS SUPERIOR 0U1	    !* Dont try to suck in LISPT.!
        F~JSNDMSG"E M(M.M TEXT MODE) 1U5'
	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 M(M.M LOAD LIB)MM-MAIL''
    F~JMS"E 1U5 F=EDITOR TYPEMS-MAIL"N M(M.M LOAD LIB)MS-MAIL''

    HK 0FS MODIFIED
    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 ^_ (the help character) for help.
The help character on a VT100 is actually ^/ , (Read EMACS:VT100.TXT).
  For a self-paced tutorial on EMACS run SYS:TEACH-EMACS.
	]1
	'''
    FQ0-1"L Q1"N M1'		    !* No file specified => execute commands from JCL!
            Q9FS QP UN :M..9'	    !* and enter ^R mode.!

    Q5"E
      Q0F[ DFILE 0 FS DVERS	    !* If called by EXEC EDIT command,!
      FS DFILE U0 F]D FILE'	    !* Reset version number defaults.!

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

    Q9FS QP UN :M..9