There is 1 other file named emacs.ledit-init in the archive. Click here to see a list.
!-*-TECO-*- Personal Emacs Initialization for Leonard N Zubkoff. !
Author: Leonard N Zubkoff
Revision: 03/03/81 00:56:28
!* Define some Variables... !
!* Only wait 1/2 second before echoing prompt or prefix. !
15 M.V Read Line Delay
!* Put Auto Save on by default every 300 keystrokes. !
1 M.V Auto Save Default
300 M.V Auto Save Interval
!* Set Fill Column to 72. !
72 UFill Column
!* Define some Hooks... !
!* Always auto-fill Text. !
@:I*|1 M.L Auto Fill Mode| M.V Text Mode Hook
!* Also always auto-fill Scribe. !
@:I*|1 M.L Auto Fill Mode| M.V Scribe Mode Hook
!* Comment Column in Lisp Mode should be 40. !
@:I*|40 M.L Comment Column| M.V Lisp Mode Hook
!* Save All Files on Exit. !
@:I*|M(M.M Save All Files)| M.V Exit Hook
!* Define some Command Characters... !
!* Make C-M-L be ReDisplay Screen to C100 program. !
!* with argument, ReDisplay current line only. !
27 FS Image Out
FF-1"E 124 FS Image Out' "# 123 FS Image Out'
0 | U...L
!* Make M-R be Replace String. !
M.M ^R Replace String U..R
!* Make M-Q be Query Replace. !
M.M ^R Query Replace U..Q
!* Make M-: be Save Files and Execute previous Exec Command. !
M(M.M ^R Save File)
M(M.M Save All Files)
EX | U..:
!* Make M-' be Move to End of Line and Tab to Column 72 if necessary. !
!Col72! (FS H Position - 72)"L 9I OCol72'
Q0,. | U..'
!* Make C-X C-S update Revision: before writing file if modified. !
.[0 0J 1:<:SRevision: ; K FS Date FS FD Convert I
> Q0 J '
M(M.M ^R Save File)
0 | U:.X()
!* If the System doen't know what Baud Rate the terminal is using, !
!* set it to 1200 baud to avoid excessive padding. !
@:I*| 2 FS Echo Lines FS OSpeed"E 1200 FS OSpeed' | FS TTY Macro
FS TTY Init
!* Terminal Display Customizations... !
M(M.M Load Library)Slowly !* Load Slowly. !
:IDefault Separator__________ !* Change Default Separator. !
3 USlow Search Lines Used !* Lines for Incremental Search. !
-1 FS Echo Errors !* Put error messages in echo area. !
!* Mode Line Customizations... !
F[B Bind !* Save current Buffer. !
G..J !* Get Mode Line. !
FS UName[0 !* Get User's Name. !
J I 0 Emacs !* Go to beginning and add Name. !
J HX..J !* Update Mode Line .!
:I* 0 EmacsUEditor Name !* Change Editor Name. !
]0 !* Restore Q Register 0. !
F]B Bind !* Restore Buffer. !
1 FS Inv Mod !* Mode Line to be Reverse Video. !
!* Setup a default Auto Save File Name. !
:IAuto Save Filenames0Emacs.Save.
!* 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. !
0 FO..Q Init Vars Processed"E !* If not yet done it, process. !
M(M.M & Process Init Vars) !* EMACS.VARS. !
1 M.V Init Vars Processed ' !* Do not do it again. !
FS XJName[J !* Put Job Name in Q Register J. !
!* See if this Emacs is a LEDIT inferior to a Lisp fork. If so, !
!* just load the LEDIT Library. Otherwise, attempt to parse the JCL !
!* for a File Name and Initial Teco Commands. !
FS LispT"N !* If were we started by a Superior. !
F~JLEDIT"E !* And our Job Name is LEDIT. !
M(M.M Load Library)PS:<Maclisp>LEDIT !* Then Load LEDIT Library. !
'' !* And Return to ^R Mode. !
!* Otherwise... !
!* Load MMAIL if appropriate... !
F~JMM"E !* If our Job Name is MM. !
M(M.M Load Library)MMAIL !* Then Load Library MMAIL. !
0M.VExit Hook' !* And inhibit Save All Files on Exit. !
!* Process the JCL... !
0[0 0[1 !* Save Q Registers 0 and 1. !
!* File Name goes in Q Register 0. !
!* Commands go in Q Register 1. !
FJ !* Retrieve JCL. !
J @F K !* Flush leading Spaces and CRLF. !
ZJ ."N !* Extract File Name and Commands. !
"E -D' !* Remove LF at End. !
"E 0,0A- !* Remove CR at End. !
J <:S$; -D 27I> !* Replace Dollar Signs with Escapes. !
J :S!/"N .,Z@FX1 -2D' !* If there are Commands to execute, put !
!* them in Q Register 1. !
J <:S!; .-1,(:S! .)K> !* Delete confirmations. !
J 7 F~(FILE) "E 7D ' !* Delete stupid noise word.!
:S B,.FX0 ' !* Put Name of File into Q Register 0. !
HK 0 FS Modified !* Clear Buffer. !
Q0"N M(M.M Visit File)0 ' !* Visit File. !
Q1"N M1 ' !* Execute any JCL Commands. !
!* Return to ^R Mode. !
!* End of Personal Emacs Customization. !