Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/einit.elib
There are no other files named einit.elib in the archive.
 W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   )Ttc #s=|+<Ai">n4?KGAS>[`=im@Ez=V=QB+& Load Default Environment & Load Essential Environment& Load Patches? Document EMACS? Generate EMACSPurify Variables~DIRECTORY~$~DOC~ & Load Default Environment&~DOC~ & Load Essential Environment~DOC~ & Load Patches~DOC~ ? Document EMACS~DOC~ ? Generate EMACS~DOC~ Purify Variables~DOC~ ~Filename~~Filename~

~INVERT~51,m.m& File PURIFY Loaded+1"G
m(m.mLoad Library)EMACS;PURIFY'
fsosteco"e
m(m.mGenerate Library)EMACS;DSK:[PURE] >EMACS1;DOCUSRCOM^RBASEWRDLSTINDENTSEARCHFILESSUPPRTISEARCWINDOWBUFFERCRLVARS
m(m.mGenerate Library)EMACS;DSK:[PRFY] >EMACS1;PURIFYCCL
m(m.mGenerate Library)EMACS;DSK:EINITEMACS1;EINIT'
"#
m(m.mGenerate Library)EMACS;DSK:EMACSDOCUSRCOM^RBASEWRDLSTINDENTSEARCHFILESSUPPRTISEARCWINDOWBUFFERCRLVARS
m(m.mGenerate Library)EMACS;PURIFYPURIFYCCL
m(m.mGenerate Library)EMACS;DSK:EINITEINIT'
m(m.mLoad Lib)EMACS;ABSTR
f[bbindf[dfile
m(m.mWall Chart).X
fsosteco"e
ji;NOXGP
;SKIP 1

'
etEMACS;EMACS CHARTeihpef
m(m.mWide Wall Chart)
etEMACS;EMACS WIDE
fsosteco"netEMACS.WIDE-CHART'
eihpef
hk
fsosteco"e
ji;NOXGP
;SKIP 1

'
m(m.mAbstract Redefinitions)
m(m.mAbstract Library) CEMACS
m(m.mAbstract Library) CTAGS
m(m.mAbstract Library) CTMACS
m(m.mAbstract Library)  SLOWLY
m(m.mAbstract Library) CWORDAB
m(m.mAbstract Library) CPICTURE
m(m.mAbstract Library) CSORT
m(m.mAbstract Library)  PAGE
m(m.mAbstract Library)  SCRLIN
m(m.mAbstract Library)  DELIM
m(m.mAbstract Library) CMODLIN
m(m.mAbstract Library) CABSTR
m(m.mAbstract Library) CPURIFY
i


.f[vb
m(m.mAbstract Variables)
f]vb
etEMACS;EMACS NDOCeihpef
1:<edEMACS ODOC>
1:<enEMACS DOCEMACS ODOC>
enEMACS NDOCEMACS DOC
^0[0[1[2
@:I*|FS:EJPAG-256"E'
QEcho Area HeightFSECHOLINES
0F[VARMAC
FSSAILUSAIL Character Mode
FS^MPRINTUDisplay Overprinting

|FSTTYMACRO
M.M& Toplevel ^RU..L
M.M& Secretary MacroU..F
Q..FU.F
M.M& Real-time InterruptFSCLKMACRO
M.M& Recursive ^R Set ModeFS^RENTER
M.M^R Backwards Kill CharactersFSRUBMACRO
-1UDisplay Matching Paren
:IR:,.F
201.@FS^RInitU1255U0
400.+A@FS^RInitU2
256<%0W
Q0#Q2"EQ1U0'
>
Q1U.T
Q2U..IQ2U...L
Q2U..._
M.MSAIL Character ModeU.B
FS^RINITUH
M.M^R Indent According to ModeUI
M.M^R Indent New LineUJ
M.M^R Indent New Comment LineU..JQ..JU..J
M.M^R CRLFUM
M.M^R Set/Pop MarkU.@
341.@FS^RINIT&777777.-40000000.U. 
M.M^R Replace StringU.%
M.M^R Query ReplaceU..%
M.M^R Find TagU...
M.M^R Indent For CommentU.;Q.;U..;
M.M^R Kill CommentU...;
M.M^R Mark BeginningU.<
M.M^R Goto BeginningU..<
M.MWhat Cursor PositionU.=
M.M^R Count Lines RegionU..=
M.M^R Mark EndU.>
M.M^R Goto EndU..>
M.M^R DescribeU..?Q..?U../
M.M^R DocumentationF(U...?)FSHELPMAC
M.M^R Kill LineU.K
M.M^R New WindowU.L
M.M^R Down Real LineU.N
M.M^R Down Comment LineU..N
M.M^R Up Real LineU.P
M.M^R Up Comment LineU..P
M.M^R Quoted InsertU.Q
M.M^R Reverse SearchU.R
M.M^R Move To Screen EdgeU..R
M.M^R Reposition WindowU...R
M.M^R Incremental SearchU.S
M.M^R Transpose CharactersU.T
M.M^R Universal ArgumentU.U
M.M^R Next ScreenU.V
M.M^R Previous ScreenU..V
M.M^R Scroll Other WindowU...V
M.M^R Kill RegionU.W
M.M^R Copy RegionU..W
M.M^R Append Next KillU...W
M.M^R Extended CommandU..X
M.M^R Instant Extended CommandU...X
M.M^R Un-KillU.Y
M.M^R Un-Kill PopU..Y
M.M^R Return To SuperiorU.Z
M.M^R Prefix MetaU
33.FS^RINITU.Q.U...C
M.M^R Execute MiniU..
433.^FS^RINITU...
M.M^R Prefix MetaU.\
M.M^R Prefix ControlU.^
M.M^R Prefix Control-MetaU.C
M.MAbort Recursive EditU.]
M.M^R Buffer Not ModifiedU..~
M.M^R Back to IndentationU..MQ..MU...M
Q..MF(U..M)U...M
M.M^R Delete Horizontal SpaceU..\
M.M^R Indent RegionU...\
M.M^R Split LineU...O
M.M^R Change Font WordU..#
M.M^R Correct Word SpellingU..$
M.M^R Upcase DigitU..'
M.M^R Mark WordU..@
M.M^R Backward SentenceU..A
M.M^R Backward WordU..B
M.M^R Uppercase InitialU..C
M.M^R Kill WordU..D
M.M^R Forward SentenceU..E
M.M^R Forward WordU..F
M.M^R Fill RegionU..G
M.M^R Mark ParagraphU..H
M.M^R Tab to Tab StopU..I
M.M^R Kill SentenceU..K
M.M^R Lowercase WordU..L
M.M^R Fill ParagraphU..Q
M.M^R Center LineU..S
M.M^R Transpose WordsU..T
M.M^R Uppercase WordU..U
M.M^R Backward ParagraphU..[
M.M^R Forward ParagraphU..]
M.M^R Delete IndentationU..^
M.M^R Underline WordU.._
M.M^R Backward Kill WordU..
M.M^R Make ()U..(
M.M^R Move Over )U..)
M.M^R Backward Up ListU...(Q...(U...U
M.M^R Forward Up ListU...)
M.M^R Mark SexpU...@
M.M^R Backward SexpU...B
M.M^R Down ListU...D
M.M^R Forward SexpU...F
M.M^R Format CodeU...G
M.M^R Mark DefunU...HQ...HU...H
M.M^R Indent for LispU...IQ...IU...I
M.M^R Kill SexpU...K
M.M^R Forward ListU...N
M.M^R Backward ListU...P
M.M^R Indent SexpU...Q
M.M^R Transpose SexpsU...T
M.M^R Beginning of DefunU...[Q...[U...A
M.M^R End of DefunU...]Q...]U...E
M.M^R Delete IndentationU...^
M.M^R Backward Kill SexpU...
128M(M.MMAKE PREFIX).XU.X
:IPrefix Char ListControl-X  Q.X

M.MList BuffersU:.X()
M.M^R Return to SuperiorU:.X()
M.M^R Directory DisplayU:.X()
M.MFind FileU:.X()
M.M^R Indent RigidlyU:.X(9)
M.M^R Lowercase RegionU:.X(

)
M.M^R Set Goal ColumnU:.X()
M.M^R Delete Blank LinesU:.X()
M.M^R Mark PageU:.X()
M.M^R Set File Read-OnlyU:.X()
M.M^R Visit FileU:.X()
M.M^R Save FileU:.X()
M.M^R Transpose LinesU:.X()
M.M^R Uppercase RegionU:.X()
M.M^R Visit FileU:.X()
M.MWrite FileU:.X()
M.M^R Exchange Point And MarkU:.X()
M.M^R Re-execute MiniU:.X()
M.M^R Change Font RegionU:.X(#)
M.M^R Start Kbd MacroU:.X(()
M.M^R Set Fill PrefixU:.X(.)
M.M^R One WindowU:.X(1)
M.M^R Two WindowsU:.X(2)
M.M^R View Two WindowsU:.X(3)
M.M^R Visit in Other WindowU:.X(4)
M.M^R Set Comment ColumnU:.X(;)
M.MWhat Cursor PositionU:.X(=)
M.M^R Append to BufferU:.X(A)
M.MSelect BufferU:.X(B)
M.M^R DIREDU:.X(D)
M.M^R Set Fill ColumnU:.X(F)
M.M^R Get Q-regU:.X(G)
M.M^R Mark Whole BufferU:.X(H)
M.M^R InfoU:.X(I)
M.MKill BufferU:.X(K)
M.M^R Count Lines PageU:.X(L)
M.MSend MailU:.X(M)
M.M^R Narrow Bounds to RegionU:.X(N)
M.M^R Other WindowU:.X(O)
M.M^R Narrow Bounds to PageU:.X(P)
M.MRead MailU:.X(R)
M.M^R Transpose RegionsU:.X(T)
M.M^R Widen BoundsU:.X(W)
M.M^R Put Q-regU:.X(X)
M.M^R Previous PageU:.X([)
M.M^R Next PageU:.X(])
M.M^R Grow WindowU:.X(^)
M.M^R Underline RegionU:.X(_)
M.M^R Backward Kill SentenceU:.X(127)
fsosteco"n
M.M^R Prefix Control-MetaU.Z
33.FS^RINITU...Z
M.M^R Return To SuperiorU:.X()
37.FSHELPCHARW
M.M^R Exit to ExecU.C
632.@FS^RINITU...C
0U:.X()
'
1FSTTMODEW
1FS^RSCANW
1FS^RECHOW
1FSRUBCRLFW
M.M^R Auto-fill SpaceFS^RECSD
:I..JEMACS 
:I*EMACSM.VEditor Name
M.M& Find BufferM.VMM & Find Buffer
M.M& Find FileM.VMM & Find File
M.M& Get Library PointerM.VMM & Get Library Pointer
M.M& Kill TextM.VMM & Kill Text
M.M& Matching ParenM.VMM & Matching Paren
M.M& Process File OptionsM.VMM & Process File Options
M.M& Read LineM.VMM & Read Line
M.M& Set Mode LineM.VMM & Set Mode Line
M.MLoad LibraryM.VMM Load Library
M.M& AutoloadU.A
M.M& Set Variable CommentU.C
M.M& Prepare For InputU.I
M.MMake Local VariableU.L
M.M& Macro ExecuteUM
M.M& Macro GetU.M
M.M& Prefix Character DriverU.P
M.M& Make VariableU.V
M.M& Set Mode LineFSMODEMAC
M.M& Default FS SuperiorFSSUPERIOR
M.M& F^K HookU*F Hook*
M.M& Subset Directory ListingUDirectory Lister
m.m& Standard Lisp Indentation Hookm.vLisp Indentation Hook
m.m& Standard Lisp PROG Hookm.vLisp PROG Indent
M.M& Error HandlerU..P
Y75FSQVECTORU..Q
3U:..Q(0)
1FSSERROR
-1FS^IDISABLE
1FS_DISABLE
-1FSFNAMSYNTAX
-1FSECHOFLUSH
1FS^LINSERT
1FSVARMAC
0U.H
:i.w
10*5FSQVECTORU..K
Q..K[..OJ5D]..O
-1U09<0U:..K(%0)>
5*5FSQVECTORU..U
0U:..U(0)10000000U:..U(2)
6*8FSQVECTORU.N
[..OQ.NU..OJ5D]..O
:I*[1-1[2
FQ.N/5<Q1U:.N(%2)>
!"!1M(M.M& Alter ..D)[(]){(})|A/A'A
!"!2M(M.M& Alter ..D)][)(><}{!'!
!"!2m(m.m& Alter ..D)<>()[]{}`'"'"'
M.M& Macro ExecuteUM
M.M& Prepare For InputU.I
M.M& Prefix Character DriverU.P
M.M& AutoloadU.A
M.M& Make VariableU.V
M.M& Set Variable CommentU.C
M.M& F^K HookM.V*F Hook*
M.M& Check Top LevelM.VMM & Check Top Level
M.M& Maybe Push PointM.VMM & Maybe Push Point
M.M& Maybe Display DirectoryM.VMM & Maybe Display Directory
M.M& Yes or NoM.VMM & Yes or No
M.MMake SpaceM.VMM Make Space
500M.CAuto Save Interval!* number of characters between auto-saves!
fs^rmdlywfs^rmcnt
500FS^RMDLYW
0M.CBottom Display Margin!* Don't let cursor be in this percent of screen!
FS%BOTTOM
0FS%BOTTOM
1M.CCase Search!* 1 => Searches ignore case!
FSBOTHCASE
1FSBOTHCASE
40M.CCursor Centering Point!* Center cursor this percentage down the screen!
FS%CENTER
40FS%CENTER
0M.CDisplay Mode Line Inverse!* 1 => Display mode line in standout mode!
FSINVMOD
0M.CDisplay Overprinting!* 1 => Try real overprinting on the screen!
F"'NFS^HPRINW"'NFS^MPRIN
3M.CEcho Area Height!* Number of lines in echo area!
FFSECHOLINES
35M.CEnd of Buffer Display Margin!* Leave this percent of screen blank at EOB!
FS%END
35FS%END
0M.CError Messages in Echo Area!* 1 => display error messages in echo area!
FSECHOERR
70M.CFill Column!* Page width for filling and grinding!
FSADLINE
70FSAdline
0M.COverwrite Mode!* Overwrite Mode status (see M-X Overwrite Mode)!
1FSMODECHWFS^RREPLACE
0M.CSAIL Character Mode!* 1 => Display chars 0-37 as SAIL graphics!
FFSSAIL
FSOSTECO"N
0M.CSystem Output Holding!* 1 => let system handle C-S and C-Q!
FSTTYPAGE'
0M.CTop Display Margin!* Don't let cursor be in this percent of screen!
FS%TOP
0FS%TOP
0M.VAbort Resumption Message
0M.CAtom Word Mode!* 1 => word commands deal with LISP atoms!
:I.W"n:I.W@'1FSMODECH
0M.CAuto Directory Display* 1 => display dir after writes, -1 => reads too
0M.CAuto Fill Mode!* nonzero => Auto Fill (break long lines at margin)!
1FSMODECH
32FS^RINITU "E'
M.M^R Auto-Fill SpaceU 
500M.CAuto Push Point Option* Searches moving this far set mark at old point
:I* ^@M.CAuto Push Point Notification* Searches setting mark type this
0M.CAuto Save Visited File* 1 => auto save under visited filename
0M.CAutoarg Mode!* 1 => digits and Minus before control chars set arg!
0FS^RINIT[2
"NM.M^R AutoargU2'
Q2-Q0"E'Q2U-
Q2U0Q2U1Q2U2Q2U3Q2U4
Q2U5Q2U6Q2U7Q2U8Q2U9
1M.CCase Replace* 1 => Replace commands preserve case
0M.CComment Begin* String for beginning new comments
32M.CComment Column* Column to start comments in
0M.CComment Start* String that indicates the start of a comment
:I*M.CComment End* String that ends comments
:I*/8+1*8M.CComment Rounding* Hairy - see code for ^R Indent for Comment
:I*FundamentalM.CDefault Major Mode* Major Mode for newly created buffers
0M.CDisplay Matching Paren!* Controls action of ) in showing the matching (!
"NM.M& Matching Paren'"#0'FS^RPAREN
:I*.?!M.CFill Extra Space List* punctuations that need 2 spaces
:I*M.CFill Prefix* String to put before each line when filling
0M.CIndent Tabs Mode!* -1 => Use tabs for indentation.  0 => only spaces.!
"EM.M& Indent without TabsUMM & Indent
M.M& Xindent without TabsUMM & Xindent'
M.M& Indent with TabsUMM & Indent
M.M& Xindent with TabsUMM & Xindent
0M.CLISP Indent Offset* See ^R Indent for LISP
:I*

M.CPage Delimiter* Search string for finding page boundaries
!"!:I*.	 'M.CParagraph Delimiter* Lines starting with these chars start paragraphs
-1M.CPermit Unmatched Paren* 1 => allow unmatched ), -1 => only in Lispish modes
0M.CRead Line DelayPausing this many 1/30 sec causes echoing
5000M.CRegion Query Size* Some commands need confirmation if region this big
M.CSearch Exit Char* Char to exit I-search and do nothing else
:I*M.VSet Mode Line Hook
0M.CSpace Indent Flag* Nonzero => Auto Fill indents new lines
:I*        :       :       :       :       :       :       :       :       :       :       :       :       :       :       :       :       :       :       :       :       :       :       :       :M.CTab Stop Definitions* Tab stops for ^R Tab to Tab Stop
:I*MEMOXGPPRESS@XGPUNFASLOUTPUTOLREC M.CTemp File FN2 List* Reap File deletes these FN2s
!"!1M.CVisit File Save Old* -1 => visiting new file saves old, 0 => don't, 1 => ask user
0M.VBacktrace Temp
0M.VCRL Help
0M.VCRL List
0M.VCRL Name Lister
0M.VCRL Name Type
0M.VCRL Prefix
:I..GQ..H"EMDirectory Lister'
:I*M.VEditor Name
:I*M.VEditor Type
:I*FundamentalM.CModeDo MM FOO to enter FOO mode
:I*M.VPrefix Char List
:I*M.CSubmode!!1FSMODECH
M.M& Subset Directory ListingM.CDirectory ListerMacro to use to list directories
15FSQVECTOR1M.VSearch Default Ring
:I:1(0):I:1(1):I:1(2)]1
M.VMM & Indent
M.VMM & XIndent
-1UIndent Tabs Mode
@:i*|:i*[1:fo..QLisp 1 Indent"l
m.vLisp 1 Indent'w|[D
1mD*CATCH
1mD*THROW
1mDCASE
1mDCASEQ
1mDCOMPILER-LET
2mDDO
1mDDOLIST
1mDDOTIMES
1mDEVAL-WHEN
1mDIOTA
1mDLAMBDA
1mDLET
1mDLET*
1mDLET-CLOSED
1mDLET-GLOBALLY
1mDMULTIPLE-VALUE
2mDMULTIPLE-VALUE-BIND
0mDPROG1
0mDPROG2
0mDPROGN
1mDSELECT
1mDSELECTQ
0mDUNWIND-PROTECT
0mDWITHOUT-INTERRUPTS
]D
:i*LISPm.vLisp Indent Language
m.m& Standard Lisp PROG Hookm.vLisp PROG Indent
1m.vLisp Indent DEFanything
m.m& Standard Lisp Indentation Hookm.vLisp Indentation Hook
:g(m.aAUX& Process Init Vars)m.vMM & Process Init Vars
FSOSTECO"E
@:I*|M(M.ALEDEFSDefine LEDEFS)|FSLEDEFS'
0M.VInhibit Write
0M.VNext Bfr Number
14*5FSQVECTORU.B
14U:.B(0)
:I*MainU:.B(1)
0U:.B(2)
:I*FundamentalU:.B(3)
Q..ZU:.B(4)
0U:.B(5)
0U:.B(6)
%Next Bfr NumberU:.B(7)
0U:.B(8)
0U:.B(9)
0U:.B(10)
0U:.B(11)
0U:.B(12)
128*5FSBConsF(FSCngBuf
)U:.B(13)
0M.VBuffer Filenames
Q:.B(1)M.VBuffer Name
0M.VBuffer Index
Q:.B(1)M.VPrevious Buffer
Q..ZFSTopBuf
M.M& Default FS SuperiorFSSUPERIOR
M.MMake Local VariableU.L
0M.CAuto Save Mode!* non-0 => do auto saves!
"'NM(M.MAuto Save Mode)
0M.CAuto Save All Buffers* non-0 => auto save all buffers, not just selected one
0M.CAuto Save Default!* non-0 => by default use auto save!
1FSMODECH
FSOSTECO"E:I*DSK: _SAV00M.CAuto Save Filenames* Filename for Auto Save files'
"#:I*[SAVE]..M.CAuto Save Filenames* Filename for Auto Save files'
2M.CAuto Save Max* # of saves to keep
M.LAuto Save Count
1M.VInitial Local Count
M.M& Set Mode LineFSMODEMAC
1FSMODECHANGE
m[1[2[3
m.m&& Variable Name Listu2
<q2+fq2+4u2-fq2;
:fo..q2u1
q1"gf~:..q(q1)2"e
q2u:..q(q1)
q2+fq2+4u3
q:..q(q1+2)"n
f~:..q(q1+2)3"e
q3u:..q(q1+2)'''
0u3
fq.b/5<fq:.b(q3)"gf~:.b(q3)2"e
q2u:.b(q3)''
%3>
'>
f[bbind[0[1[2
f[dfileet
1:<er@y>"l'
z"e'
@f


k
f[:ejpage
m(m.mLoad Library)PURIFY
<b,.k
m(m.mTCompile)
:s


;>
hk	EINIT&Macros for installing a new EMACS.d? Create EMACS :EJ file from sources.
Compresses the source files that need compression, then concatenates the
COMPRS files and purifies, writing the result out as EMACS;[PURE] > (on ITS)
or EMACS:EMACS.ELIB (on Tops-20).'? Create EMACS DOC and EMACS CHART.:S Create the default environment.
Assuming that the pure files are already loaded
and the "essential" environment is set up, set up the standard
EMACS ^R command definitions, etc.tS Does what's needed for EMACS macros to work at all.
A given environment (such as EMACS, TME, etc.) may set up
other variables, and redefine ^R characters.  That is all optional.
But code may fail to work if these variables are missing. C Make var names in symtab pure.
For each symbol, sees whether there is a pure string for
its name, and if so makes the sym tab point at that pure string.'S Load patches (made since [pure] file) before dumping.
Essentially, we do TCompile on each page of the patch file,
whose name is specified as a string argument.? Generate EMACS
? Document EMACS
& Load Default Environment
& Load Essential Environment
Purify Variables
& Load Patches
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2