PDP-10 Archive: emacs/haklib.elib from mit_emacs_170_teco

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/haklib.elib

There are no other files named haklib.elib in the archive.

pW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
)TKM[KMa,ih+,nGauF{&c*B+,<y:)FM9H(HHLUFaAtpIL81#<2;*@NeP:u]LNjM%u9&0<"+"*+D1'
35
,u
=
%0O
308
@/P
H/
S/j
^4&
m47
u1/)n7}0a,4t33w?^lF^$P^$YR~cR^l]dv]OOv

R6

R^

[q

)Z}

<]?

O]z

a^

q]O[^E$^R2ZkDONO@^[WkRJvRnP


P4ON'O)7P BP NP*ZPCgPTrR|QR^R6Qp$Rn-Pd6R?YUJTZT+jYpxZ,TkX(S6\

BViSVXcUnT_|U\
YY'W+6Q:IZCXVyjY+tXmO

& CCMode& GRAMMAR Mode

& H Mode& Hack Syntax& HAKLIB Assembly Mode Hook!& HAKLIB Babyl Edit Mail Hook& HAKLIB Babyl G Done Hook& HAKLIB Babyl M Hook& HAKLIB Babyl R Hook& HAKLIB Babyl Setup Hook)& HAKLIB Babyl Survey FROM/TO Control!& HAKLIB Buffer Creation Hook& HAKLIB LEDIT Setup Hook& HAKLIB Pascal Mode Hook& HAKLIB Scribe Mode Hook& HAKLIB Set Mode Line Hook& HAKLIB TECO Mode Hook& HAKLIB TeX Mode Hook& HAKLIB TTY Macro& HAKLIB WORDAB Setup Hook& Impurify& Kill HAKLIB Library& Label CRLF Hack& NOTES Mode& PCL Mode& Read JCL& Run Subsys& Setup HAKLIB Environment& Setup HAKLIB Library& Startup B& Startup BABYL& Startup INFO& Startup LEDIT& Startup MM& WEB ModeBuffer Menu
C ModeGrammar ModePascal Mode

PCLtMode

Web Mode^R Auto Save^R Change Case Letter^R Connect to Directory^R Find Long Line^R Find Unmatched Paren^R Forward Screen or Exit^R Indent to Column^R Insert Comment^R Label Search^R Move to Screen Bottom^R Move to Screen Top^R New Window^R Previous Buffer^R Refresh Screen^R Reverse Zap to Character^R Run Teco^R Save/Restore Point ^R Sketch Insert or Dispatch^R Super Parenthesis^R Swap Chars Before Point^R Whoedit^R Zap to Character~DIRECTORY~~DOC~ # Babyl "~DOC~ # Babyl `~DOC~ # TDebug C~DOC~ & C Mode~DOC~ & CC File~DOC~ & Cc Self~DOC~ & Get JCL~DOC~ & GRAMMAR Mode~DOC~ & H Mode~DOC~ & Hack Syntax%~DOC~ & HAKLIB Assembly Mode Hook'~DOC~ & HAKLIB Babyl Edit Mail Hook$~DOC~ & HAKLIB Babyl G Done Hook~DOC~ & HAKLIB Babyl M Hook~DOC~ & HAKLIB Babyl R Hook#~DOC~ & HAKLIB Babyl Setup Hook/~DOC~ & HAKLIB Babyl Survey FROM/TO Control'~DOC~ & HAKLIB Buffer Creation Hook#~DOC~ & HAKLIB LEDIT Setup Hook#~DOC~ & HAKLIB Pascal Mode Hook#~DOC~ & HAKLIB Scribe Mode Hook%~DOC~ & HAKLIB Set Mode Line Hook!~DOC~ & HAKLIB TECO Mode Hook ~DOC~ & HAKLIB TeX Mode Hook~DOC~ & HAKLIB TTY Macro$~DOC~ & HAKLIB WORDAB Setup Hook~DOC~ & Impurify~DOC~ & Kill HAKLIB Library~DOC~ & Label CRLF Hack~DOC~ & NOTES Mode~DOC~ & PCL Mode~DOC~ & Read JCL~DOC~ & Run Subsys$~DOC~ & Setup HAKLIB Environment ~DOC~ & Setup HAKLIB Library~DOC~ & Startup B~DOC~ & Startup BABYL~DOC~ & Startup INFO~DOC~ & Startup LEDIT~DOC~ & Startup MM~DOC~ & WEB Mode~DOC~ Buffer Menu~DOC~ C Mode~DOC~ Grammar Mode~DOC~ Pascal Mode~DOC~ PCL Mode~DOC~ Test Load~DOC~ Web Mode~DOC~ ^R Auto Save~DOC~ ^R Change Case Letter!~DOC~ ^R Connect to Directory~DOC~ ^R Find Long Line!~DOC~ ^R Find Unmatched Paren#~DOC~ ^R Forward Screen or Exit~DOC~ ^R Indent to Column~DOC~ ^R Insert Comment~DOC~ ^R Label Search"~DOC~ ^R Move to Screen Bottom~DOC~ ^R Move to Screen Top~DOC~ ^R New Window~DOC~ ^R Previous Buffer~DOC~ ^R Refresh Screen%~DOC~ ^R Reverse Zap to Character~DOC~ ^R Run Teco~DOC~ ^R Save/Restore Point&~DOC~ ^R Sketch Insert or Dispatch~DOC~ ^R Super Parenthesis$~DOC~ ^R Swap Chars Before Point~DOC~ ^R Whoedit~DOC~ ^R Zap to Character~DOC~ ~Filename~~Filename~

~INVERT~x0fo..qHAKLIB Already Loaded Once"e
m.lSaved Point Vector
%Initial Local Count
1m.vHAKLIB Already Loaded Once'
0fo..qBuffer Creation Hookm.vHAKLIB Old Buffer Creation Hook
:m(m.m& HAKLIB Buffer Creation Hookm.vBuffer Creation Hook)=qHAKLIB Old Buffer Creation HookuBuffer Creation Hookw#1fsNoQuit
!"!0fs^RInitu..'0u:.X()
2401m.vSLOWLY Maximum Speed
m(m.m& HAKLIB TTY Macrof(fsTTYMacw))
m.m& HAKLIB Set Mode Line HookuSet Mode Line Hook
q...Du.../
q...Ku...D
q.Wu...K
m.m^R Copy Regionu.W
m.m^R Autoargumentu..-460.-1[0
10<q..-,(%0)@fs^RCMac>
m(m.mMake Prefix Character).UU.\
qPrefix Char List[0
:iPrefix Char List0Control-\  q.U

m.mLoad Library[L
fsOSpeed-2401"lmLSlowly
m.m^R Set Screen SizeU:.X(S)'
qEMACS Version-161"g
mLComplt'
mLScrLin
fsOSTeco"emLSends
1uSends Doc
m.m^R Send/PrSendU:.X()'
1:<mLFixLib
m.mExamine FunctionU:.X()
m.m^R Examine KeyU:.X()>
1:<mLMWind>
1:<mLXPage>
mLTDebug
m.m& Impurify[I
mIIVORY^R Ivory-Bound This Page
mITMACS^R Break Line
mITMACSUncontrolify
mITMACS^R Uppercase Last Word
mITMACS^R Lowercase Last Word
mITMACS^R Uppercase Last Initial
0uDisplay Matching Paren
1uError Messages in Echo Area
1uAuto Save Default
1m.vSuppress Blanking
1m.vNext Screen Context Lines
1m.vTags Find File
m.lOverwrite Mode
%Initial Local Count
m.m& HAKLIB WORDAB Setup Hookm.vWORDAB Setup Hook
fsOSTeco"n
g(fsXUName)j<:s.;>0,.k
[UhfxU
fsOSTeco-1"e
:i*SCR:U-SAVE..0m.vAuto Save Filenames'"#
:i*U-SAVE..0m.vAuto Save Filenames'
0fo..qBabyl Default File"e
fsHSNameu0:i*0U.BABYLm.vBabyl Default File'
'
:iAuto Push Point Notification (Mark Set)
m.mSave All Filesm.vMM Save Some Buffers
m.m~DOC~ Save All Filesm.vMM ~DOC~ Save Some Buffers
m.m^R Save Filem.vMM Save All Files
m.m~DOC~ ^R Save Filem.vMM ~DOC~ Save All Files
:i*Extended Command: m.vRead Command Prompt
:i*Instant Command: m.vInstant Command Prompt
1m.vInhibit TeX Dollarsign
m.m& HAKLIB TeX Mode Hookm.vTeX Mode Hook
m.m& HAKLIB Assembly Mode Hookm.vMIDAS Mode Hookm.vMACRO Mode Hookm.vFAIL Mode Hook
m.m& HAKLIB Pascal Mode Hookm.vPascal Mode Hook
@:I*/m.m^R Examine Next M.Mm.qX
m.m^R Forward Screen or Exitm.q 
m.m^R Previous Screenm.qH
:mTECO Mode Hook
/m.vExFun Mode Hook
m.m& HAKLIB TECO Mode Hookm.vTECO Mode Hook
m.m& HAKLIB Scribe Mode Hookm.vScribe Mode Hook
@:i*|1m.lAuto Fill Mode
0m.lSpace Indent Flag|m.vText Mode Hook
m.m& HAKLIB LEDIT Setup Hookm.vLEDIT Setup Hook
0m.vLEDIT Save All Files Query
@:I*/-1m.lDisplay Matching Paren
40m.vComment Column
:i*(defunm.lLabel Search Prefix
:i*(m.lLabel Search Suffix
:i*A'm.lLabel Content Syntax
/m.vLISP Mode Hook
:i*ZBabylm.vMail Reader Library
:i*BabylMm.vMail Sender Library
m.m& HAKLIB Babyl Setup Hookm.vBabyl Setup Hook
q...(u...[q...)u...]
q..^u..!q...^u...!
q.^u..^700.fs^RInitu...^
q...Wu:.U(A)
q..Su:.U(C)
q..Ru:.U(E)
q..Qu:.U(F)
q[u:.U()
m.m^R Character SearchU..S
m.m^R Reverse Character SearchU..R
m.m^R View Q-regU..Q
m.mCompileU..Z
m.m^R Just One SpaceU.. 
m.m^R Indent Comment RelativeU.;
m.m^R Indent NestedU...I
m.m^R Indent RelativeU..I
m.mRevert FileU..*
m.m^R Count Lines PageU...=
m.mRename BufferU:.U()
m.mSet Visited FilenameU:.U()
m.m^R Indent to ColumnU:.U(9)
m.m^R Down Indented LineU:.U()
m.m^R Up Indented LineU:.U()
m.mView BufferU:.U()
m.m^R Kill Terminated Wordu:.U(D)
m.mInsert FileU:.U(I)
m.m^R Next Several ScreensU:.U(N)
m.m^R Previous Several ScreensU:.U(P)
m.mUndoU:.U(U)
m.mView FileU:.U(V)
m.mInsert BufferU:.U(Y)
fsOSTeco-1"em.mRerun CCLU:.X(Z)'
fsOSTeco"nm.mPush to EXECU:.X(@)'
m.m^R Break LineU..O
fsOSTeco"nm.m^R WhoeditU...W'
"#0fs^RInitU...W'
m.mBuffer MenuU:.X()
m.m^R Uppercase Last InitialU:.X(C)
m.m^R Lowercase Last WordU:.X(L)
m.m^R Uppercase Last WordU:.X(U)
m.m^R Sketch Insert or DispatchU:.U(S)
m.m^R New WindowU..W
m.m^R Refresh ScreenU.L
m.m^R Swap Chars Before PointU.T
m.m^R Find Unmatched ParenU...(
m.m^R Super ParenthesisU...)
m.m^R Connect to DirectoryU:.U()
m.m^R Find Long LineU:.U()
m.m^R Auto SaveU:.U()
m.m^R Change Case LetterU:.U()
m.m^R Run TecoU:.U()
m.m^R Label SearchU:.U(.)
m.m^R Insert CommentU:.U(;)
m.m^R Move to Screen BottomU:.U(B)
m.m^R Move to Screen TopU:.U(T)
m.m^R Zap to CharacterU...S
m.m^R Reverse Zap to CharacterU...R
m.m^R Previous BufferU:.X(\)
m.m^R Save/Restore PointU:.U(J)
1:<erEMACS;SITE INIT@ym(hfx*)>
fsMSName:f6u0
fsOSTeco"efsXUName:f6[U
etDSK:0;U FOO'
"#et0FOO.BAR'
:iEditor NameModE
:i..JModE 1fsModeCh
0fsNoQuit
fsXJName:f6[J
:m(1,m.m& Startup Jf"ewm.m& Read JCL')f1,fLibrary: (1,fFunction: [1)[0
:g(m.a01)m.vMM 1
:g(m.a0~DOC~ 1)m.vMM ~DOC~ 1
Uz"efj'j@f
 k
zj."e0fsModifiedw0fsXModified'
0,0a-
"e-d'
0,0a-
0[1[0
m(m.m& Get JCL)
j:s"n.,z@fx1-d'
j:s,"n.(zjji),z@fx1-d'
hfx0
0fsModifiedw0fsXModified
fq0"nm(m.mFind File)0'
fq1"gm1'
m(m.m& Run Subsys)ZBabylm(m.m& Run Subsys)Info[0:i*[1
"emL1
:iEditor Name1
:i..J1 
@:i..L|1m(m.m& Run Subsys)1|
'
1,(m(m.m& Get Library Pointer)1)m.m<ENTRY>f"nu1'
"#wm.m1u1'
m.m^R Return to Superior[R
!again!
fsTTYMacf"nuAmA'
f[BBindm(m.m& Get JCL)
hfx0f]BBind
m10
mRoagainc:iEditor NameLEDIT:i..JLEDIT 
m(m.mLISP Mode)
0fsSuperior
mLLEDIT
:m(m.m& Read JCL)C:iEditor NameMMail:i..JMMail 
mLMMail
:m(m.m& Read JCL)f:m(m.aIVORYTest Load)f:m(m.aTMACSBuffer Menu)Fm(m.mLoad Library)SKETCH
f:m(m.m^R Sketch Insert or Dispatch)3m(m.mLoad Library)XPAS
f:m(m.mPascal Mode)0m(m.mLoad Library)XPAS
f:m(m.mWeb Mode)?m(m.m& Init Buffer Locals)
m.m^R Indent Relativem.qI
1m.lSpace Indent Flag
40m.lComment Column
:i*--m.lComment Start
:i*-- m.lComment Begin
1m(m.m& Set Mode Line)Grammar:m(m.mText Mode)/m(m.mLoad Library)CMODE
f:m(m.mC Mode)Km(m.m& Init Buffer Locals)
1,(m.m^R Indent Relative)m.qI
1,(@:i*|m(m.m& Exit EMACS)
declare pcl 1
|)m.lCompile Command
:i*CommandProcedurem.lLabel Search Prefix
:i*;( (m.lLabel Search Suffix
:i*Am.lLabel Content Syntax
1,(:i*!)f(m.lComment Start)m.lComment Begin
1m(m.m& Set Mode Line)PCLf:m(m.m# TDebug X)(.[1[2
ff"e0f"n-@f 	"e i'''
qComment Beginu2fq2"lqComment Startu2'
g2qComment Endu2fq2"lq1,.'
.(g2)u2
ff"e:f"n@f 	"e i'''
q1,.(q2j)F[1.[0
:i*abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ[2
f"lw-'<
"l-@:f2f(-."e@fg.,q0')l-c'
"#@:f2f(-z"e@fgq0,.')l'
1a-Z"g1a-z+Zu1'"#1a-Z+zu1'f1:"lc'>
.,q0f8ff"nf:m(m.mConnect to Directory)'
qBuffer Filenamesf[DFile
fsDDev[1fsDSName[2
fsOSTeco-1"em(m.mConnect to Directory)1:<2>'"#
m(m.mConnect to Directory)2'
0+qPrevious Buffer:m(m.mSelect Buffer)e:ffsWindow[0.[1
zj:f
fsWindow-q0"em(fs^RInit)'
q1jq0fsWindow
@:m(m.m^R Next Screen)3ff&1"n@:f0'
@:m(m.m^R Reposition Window)ff&1"e-fsPJATYw'
fsRGETTY"em(

fs^RInit)'
fs^RArgP&6"e
fs^RExpt-1"n
f[Windowf+'
"#0''"#'+(fs^RVPos)f((
-1,)fsTyoHash
)+1f(-1,)@f0-ff&1f"n':m(m.m^R Move to Screen Edge)$-:m(m.m^R Move to Screen Edge).-b-2"lb+2:j"e@fg0''
0f[0
q0"e.-b-2"e:c"e@fg'1u0''
q0"e-2au0:i0
0'
"#q0-1"e0au0:i00
'
"#-au00a[1:i010''
.-(fq0)f0-(fq0)

[0[1[2[3
qSaved Point Vectoru2
ff&1"'eu0
m.ifi:fcu1
q1-33."n
q1-177."e:i1Delete'
"#q1-40."lq1+100.u1:i1Ctrl-1'
"#q1:i1'''
"#:i*CfsEchoDis
q0"e3,m(m.m& Read Line)Named Point: u1'
"#:i*Name [CRL Prefix
q2[CRL List
2,m(m.m& Read Command Name)Named Point: u1'
fq1:"g0'
:i*Name 1u1'
@:fo21u3
q0"e.u0q2[..o
q3"l-q3*5j10,0i-10cq1,.fsWord5c'
"#q3*5+5j'
q0,.fsWord'
"#q3"l:i*1 holds no saved point@fg'
"#.u0q:2(q3+1):j"e:i*Out of range@fg'
"#q0m(m.m& Maybe Push Point)'''
0z-.[0fnz-q0j0l.[2
ff&1"e8'"#'[1
@f 	LfsSHPos[3q2,.k
z-.-q0"gq1'"#z-.u0q1f"n+q3''mMM & Xindent
q2+(q3/8)-.f"gw0'_0[Auto Push Point Option
.[1[9
@m(m.m^R Character Search)
q1,.f:m(m.m& Kill Text)!-:m(m.m^R Zap to Character){1,m(m.m& Read Line)Teco: [0
fq0:"g0'
f=(q:.n(0)f"ew:i*')0"n
q.n[..ozj-5d
j5,0i]..o
q0u:.n(0)'
@m(q0(]0))wB0fo..qComment Beginf"e0fo..qCommentStartf"ew:i*;''[B
0fo..qComment Endf"ew:i*'[E
f=B; "e:iB;'
z-.[Z@fn|z-qzm(m.m& Maybe Push Point)|
0f[VBjgBqBuffer Filenamesf"nf[DFile'
f=(fsDDevice)PS"ng(fsDDevice):i'
<ig(fsDSName)>i
g(fsDFn1).ig(fsDFn2).i
fsDVersionf"ewe?"n1'"#e[ere]fsIFVers+1''\
i, 0,-1fsFDConvi, Edit by g(fsXUName)
gEi
gB i.[0fnq0jgEi
0,.@v
1<500:fbVEDIT;
.uE-5c-@f 	L
0f"nqEj!<!@>'
qEj@f 	L
1,1a-="n!<!@>'
@:f0123456789f(-z@;)L
.uB@f01234567L
0,1a:"d8[..E8f[IBase'
qBj.(\[0)f(,.k%0\),.>
0eQ:.B(qBuffer Index+4)[..O
f[DFile
1:<1,1m(m.m^R Save File)>"l
:i*Auto save failed@fg'
0a.[0fnq0j
ff"n'"#fsWidth'[1
<.-z;2@:LfsSHPos-q1"g.u00'>
:i*No long lines found@fg0
zj-fulg.-z[0.[1
-:s
(
A
fdl.-1[2
q0+zj
<-fll.-q2-1:;
q0+zj-ful1a*5+2(q0+zj):g..Di>
q0+zjq1,.':iDefault Major ModeLISP
m.m^R LEDIT Find Functionu....
m.m^R LEDIT Save DEFUNu...Y
m.m^R LEDIT Zap to LISPu:.X(Z)
m.m^R LEDIT Zap DEFUN to LISPu..Zm.m^R Add Global Word Abbrevu:.X(+)
m.m^R Inverse Add Global Word Abbrevu:.X(-)
m.m^R Add Mode Word Abbrevu:.U(+)
m.m^R Inverse Add Mode Word Abbrevu:.U(-)
m.m^R Word Abbrev Prefix Marku:.X()
m.m^R Abbrev Expand Onlyu... 
m.m^R Unexpand Last Wordu:.X( )L9fs^RInitm.qI
(:i*+1)m.lComment Rounding
:i*
m.lLabel Search Prefix
:i*:=m.lLabel Search Suffix
:i*Am.lLabel Content Syntax
:i*
m.lParagraph Delimiter
m.m^R Kill SExpu...D
j:i*!m.lLabel Search Prefix
:i*:!m.lLabel Search Suffix
:i* Am.lLabel Content Syntax
L1m.lAuto Fill Mode
0m.lSpace Indent Flag
1,m(m.m& Get Library Pointer)TeX"e
1:<m(m.mLoad Library)TeX
m.m^R TeX "m.q"!''!>'
@:i*|m(m.m& Exit EMACS)
Scribe 1
|m.lCompile Command
:i*ProcedureFunctionm.lLabel Search Prefix
:i*;:(m.lLabel Search Suffix
:i*A'm.lLabel Content Syntax
:m(m.m& Default Init Pascal Mode)4f[BBindg()j
<:s^M"ez"e:i*"#hfx*''-2di
>$f[BBindg()j
z<ici>
hfx*R	[L[O[P[S[C[H[0[2[7[8[9
m.m& PAGE Widen Boundsf"nu0m0'
!NewLabel!
0fo..qLabel Search Prefixf(uP)"eoNoLabel'
0fo..qLabel Search Suffixf(uS)"eoNoLabel'
0fo..qLabel Content Syntaxf(uC)"e
!NoLabel!
:i* No Label Definition for this buffer.  Create it@fg
1m(m.m& Yes or No)"e0'
m.m& Label CRLF HackuH
1,m(m.m& Read Line)Label Prefix: mHm.lLabel Search Prefix
1,m(m.m& Read Line)Label Suffix: mHm.lLabel Search Suffix
1,m(m.m& Read Line)Label Syntax: m(
m.m& Hack Syntax)m.lLabel Content Syntax
oNewLabel'
.u0fnq0j
m(m.m^R Widen Bounds)
ff&1u2
q2"ej1,fLabel: m.lLabel Search Last'"#@l'
qLabel Search LastuL
.uO
<:sL;.u8fkc.u7
-:sP"eq8j!<!>'
fkc@f 	l
.-q7(q8j)"n!<!>'
@f 	l
.u7:sS"e!<!>'
fkc.-q7(q7j)"eoFound'>
qOj<:sL;.u8fkc.u7
-:sP"eq8j!<!>'
fkc@f 	l
<.-q7@;sCfk+1@:;>
.-q7(q8j)"n!<!>'
.(:sS;fkc.u8)j
<.-q8@;sCfk+1@:;>
@f 	l
.-q8"eoFound'>
q2"e:i*No such label: L'"#:i*No more L'@fg0
!Found!
0@lq0m(m.m& Maybe Push Point)
.u0
qComment Startu7
q7"nqComment Endu8
f=8 -1"g1,fq8:g8u8'
<0@:lb-.;0@f@:;>.u9
<fq8"g-fq8f=8@:;-fq8c-:s7;'
"#0@lfq7f=7@:;'
0@f@:;0@:l>
@l.-q9"gq0j''
-1f[^RInhibitw0@v
0@:f02	-1m.vBabyl N After D
m.m& HAKLIB Babyl G Done Hookm.vBabyl G Done Hook
m.m& HAKLIB Babyl M Hookm.vBabyl M Hook
m.m& HAKLIB Babyl R Hookm.vBabyl R Hook'
m.m& HAKLIB Babyl Survey FROM/TO Controlm.vBabyl Survey FROM/TO Control
1,m(m.m& Get Library Pointer)ZBabyl"n
1m.vZBabyl Init Loaded
[0f[DFile
fsHSNamefsDSName
etZBABYL LISP
1:<erec>"efsdfileu0
m(m.mRead Filter Library)0''
0fo..qHAKLIB Babyl Label Answered"e
@:i*|1,-1m(m.m& Label Babyl Message)to answer|m.vBabyl R Done Hook'
0m.vBabyl Strip Local Host
1m.vBabyl Day of Week Flag
:i*[Address][Also-Known-As][Article-I.D.][Delivery-Notice][DTN]
[Full-Name][Keywords][In-Real-Life][In-Reply-To][Loc][Location]
[Mail Stop][Mail-From][Mail-Stop][Message-id][Note][Office]
[Organization][Phone][Phones][Postal][Postal-Address]
[Posting-Version][Rcvd-Date][Received][Redistributed-To]
[Redistributed-By][Redistributed-Date][References][Regarding]
[Remailed-Date][Remailed-From][Remailed-Sender][Remailed-To][Reply]
[ReSent-Cc][ReSent-Date][ReSent-From][ReSent-Sender][ReSent-To]
[Return-Path][Snail-Mail][Stanford-Phone][Telephone][USmail][USnail]
[Via]m.vBabyl Reformation Flushes These Fields
e0,(fsZ)fsBound
qParagraph Delimiter[0
fq0"g:i00-'"#:i0-'
q0(]0)[Paragraph DelimiterD1fo..qHAKLIB Babyl CC Self"e
:m(m.m& Cc File)'
.-z[PfnqP+zjj
fsOSTeco"eiCc: '"#iBcc: '
g(0fo..qBabyl User Namef"ewfsXUName:f6')
i

fsWindowf"lw0'+.fsWindow
:m(m.m&qCcKFile)yl CC File"e'
.-z[PfnqP+zjj
fsOSTeco"e'"#iFcc: '
g(qHAKLIB Babyl CC File)
i

fsWindowf"lw0'+.fsWindow
I"nqBuffer Filenames[00fo..QBabyl Filter-Daemons 0f"nu0m0w']0'
mjk@m(m.m^R Babyl Add To-Recipient)
@m(m.m^R Babyl Add Subject: Field)
zj0fsWindow
:m(m.m& Cc Self)[0[2[..oq1-1j
@:i*|!<!:s->,fkcq1-."gq1j'|[E
q1j<:s!<(!>!);.(-mE),.fk>
q1j<:s%@ at ;fkc.(1mE),.k>
q1j<:s.;.u0-mEq0-.-(1mE.-q0)-1"gq0-1,.k'"#-mE.,q0k'>
0fo..qFlush From Surveyu0q0"nq1j
<:s0;fkc0,0a(-fkc)"a!<!>'
-mE.(1mE),.k>'
q1j<:s->;fkdi : >q1j0,1a- "ed'
j0,6a-S"nz-q1u1
:ki No. Size  Date     From : To     {Labels} Subject or Text
z-q1u1'
fsOSTeco"e:i0       '"#
u..oj
:s
Date: "e:i0Unknown'
"#:x0f[BBindg0
0a-)"e-flk-@f 	k'
-4c1a- "edi-'
j1a"a@:f, l@f, l'
fsFDConvertu0q0+1"er'
.+1-z"n:i0Unknown'
"#hk400000000.,q0fsFDConvert
j1a- "ef0'
2jd3fc5jdhx0'
f]BBind''
u..oq1jg0i  .u1
zj1
fsQPPtr[P
m(m.m& Push Message)
1m(m.m# Babyl J)
2,9999m(m.m& Babyl Survey Several Messages)
qPfsQPUnwind
:m(m.mSurvey Menu)wqHAKLIB Old Buffer Creation Hook[1
fq1"gm1'
5fsQVecu1
2u:1(0)
q1uSaved Point Vector
m.lOverwrite Mode
/1m.lAuto Fill Mode
m.m^R TeX "m.q"!''!
@:i*|m(m.m& Exit EMACS)
TeX 1
|m.lCompile Command
qParagraph Delimiter[11,(:i*1\$$%)m.lParagraph Delimiter
fsQPPtr[P
m(m.aTRMTYP# TRMTYP Heath)-fsRGetTy"e
1fsTtyFci'
m(m.aTRMTYP# TRMTYP Ambassador)-fsRGetTy"e
0'"#1'uDisplay Mode Line Inverse
m(m.aTRMTYP# TRMTYP VT100)-fsRGetTy"e
fsHeight-28"e1fsOSpeed''
2,(fsHeight/12)fuEcho Area Height
fsOSpeed-qSlowly Maximum Speed"g
0'"#fsOSpeedf"e5'"#-100f"l+99'"#/500+1'''m.vSlow Search Lines Used
qPfsQPUnwind\fqEditor Type"g:iEditor Type'
.-z(-:sSave(off)"nNoSave'
"#-:s Save"nfkd'')+zj
HAKLIB"EMACS macros for FMF and KRONJ-S Necessary stuff for the library to workS Remove pure hooks etc."S Do the actual initialization.S Impurify a function from a given library,S Get cleaned up JCL into current buffer(S Interpret JCL as filename to visitS Babyl subsystemS INFO subsystemS Run string arg as subsys!S Process JCL for LISP editor!S Process JCL for MM inferior[C Load any modified macros into Mm-vars and ^R-keys.
g(m.aIVORY~DOC~ Test Load)jkQC Display information about all buffers.
g(m.aTMACS~DOC~ Buffer Menu)jkl^R Insert sketch, or (with arg) menu of commands.
g(m.aSKETCH~DOC~ ^R Sketch Insert or Dispatch)jkIC Set up for editing Pascal code.
g(m.aXPAS~DOC~ Pascal Mode)jkCC Set up for editing Web code.
g(m.aXPAS~DOC~ Web Mode)jk'C Set up for CS143 parser grammars.)S Set up for editing notes to myself.C Set up for editing C code!C Set up for editing PCL code2C Exit backtrace and continue macro execution.~^R Put a comment at the current point in the text.
Makes sure there is space before the comment.  If not at the end of
the line, also makes sure there is space after the comment.
Both of these space checks can be disabled by supplying an argument.*^R Twiddle case of next numarg lettersg^R Connect to directory where visited file lives.
with a numarg, merely runs Connect to Directory.^R Like c-X B Return.O^R View the next screenful.
If there are no more, exit recursive ^R level.^R Find a new window for point.
If given a numarg, tries to put point on that line;
otherwise, tries to fit defun, paragraph etc. on screen.x^R Tell TECO the screen should be repainted.
With no arguments, says the entire screen is dirty.  A numerical
argument refreshes that line, relative to the current line.
One c-U is like an argument of 0.  Two c-Us refresh the current window."^R Go to first line of screen.!^R Go to last line of screen.c^R Switch the characters before point.
Treats CRLFs as single characters.  Point is unchanged.Z^R Save or restore point.
Reads a char from the echo area;  if it is an altmode, reads
a long name.  If given an argument, labels point with that char
or name;  otherwise, restores from a previously saved point.*^R Insert whitespace at start of line.
Arg (default 8) is number of columns.  If already within indentation,
adds to it.  A zero arg always deletes all indentation.+^R Kill to next occurrence of character/^R Kill to previous occurrence of character"^R Read a string and macro it.T^R Update edit history.
A variable VEDIT in the first 500 lines is incremented.7^R Run an auto save to protect buffer from munging.x^R Find a line longer than the terminal width.
Starts at point.  An argument if given is used instead of tty width..^R Find open paren without matching close.1^R Insert enough )s to finish top level DEFUNS Set keys for LISP editor$S Set keys for word abbreviation2C Set up for editing PDP-10 assembly language./S Set label variables for editing TECO code,S Set variables for editing Scribe files'S Set variables and keys for Pascal4S Convert ^M to a CRLF, make null string into ^X6S Put ^S before and ^O after each char in a string9 Like TAGS, but works only on buffer.
Look for label starting at beginning of buffer.
If given an argument, continue search.

Needs:
    Label Search Prefix - string defining prefix
    Label Search Suffix - string defining suffix
    Label Content Syntax - string of chars (Lisp syntax) within labels.S Initialize hooks and variables for BabylS Set keys for editing mail*S Add self as BCC to outgoing messages-S Add a file as FCC to outgoing messages S Process incoming messagesS Set up outgoing msgsS Clean up survey menus C# Enter SvM on all messages!S Set up permanent local varsS Set vars for TeX modeS Set tty-dependent varsS Clean up mode lineM
& Setup HAKLIB Library
& Kill HAKLIB Library
& Setup HAKLIB Environment
& Impurify
& Get JCL
& Read JCL
& Startup BABYL
& Startup B
& Startup INFO
& Run Subsys
& Startup LEDIT
& Startup MM
Test Load
Buffer Menu
^R Sketch Insert or Dispatch
Pascal Mode
Web Mode
& WEB Mode
Grammar Mode
& GRAMMAR Mode
& NOTES Mode
C Mode
& C Mode
& H Mode
PCL Mode
& PCL Mode
# TDebug C
^R Insert Comment
^R Change Case Letter
^R Connect to Directory
^R Previous Buffer
^R Forward Screen or Exit
^R New Window
^R Refresh Screen
^R Move to Screen Top
^R Move to Screen Bottom
^R Swap Chars Before Point
^R Save/Restore Point
^R Indent to Column
^R Zap to Character
^R Reverse Zap to Character
^R Run Teco
^R Whoedit
^R Auto Save
^R Find Long Line
^R Find Unmatched Paren
^R Super Parenthesis
& HAKLIB LEDIT Setup Hook
& HAKLIB WORDAB Setup Hook
& HAKLIB Assembly Mode Hook
& HAKLIB TECO Mode Hook
& HAKLIB Scribe Mode Hook
& HAKLIB Pascal Mode Hook
& Label CRLF Hack
& Hack Syntax
^R Label Search
& HAKLIB Babyl Setup Hook
& HAKLIB Babyl Edit Mail Hook
& Cc Self
& HAKLIB Babyl R Hook
& CC File
& HAKLIB Babyl G Done Hook
& HAKLIB Babyl M Hook
& HAKLIB Babyl Survey FROM/TO Control
# Babyl `
# Babyl "
& HAKLIB Buffer Creation Hook
& HAKLIB TeX Mode Hook
& HAKLIB TTY Macro
& HAKLIB Set Mode Line Hook
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2