Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/modlin.elib
There are no other files named modlin.elib in the archive.
( W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
@ C P 2 [ z g S t
[
K ,
9 <
+ F
& M eck for Correct Superior & Fancy Mode Line & Kill MODLIN Library & Setup MODLIN Library ~DIRECTORY~& ~DOC~ & Check for Correct Superior ~DOC~ & Fancy Mode Line ~DOC~ & Kill MODLIN Library ~DOC~ & Setup MODLIN Library ~DOC~ ~Filename~ ~Filename~
~INVERT~N 1,m(m.m& Get Library Pointer)KMPTIME"e
m(m.mLoad Library)TIME'
m.m& Fancy Mode LinefsModeMacro
m.m& Fancy Mode LineM.VMM & Set Mode Line
fsOSTeco"e
m.m& Check for Correct Superiorfs^RDisplay'
m.m& Fancy Mode Line(
),m(m.m& Start Realtime Modeline Clock)
1fsmodech
0fo..QInvert Filenamesm.vInvert Filenames 1,m(m.m& Get Library Pointer)EMACSm.m& Set Mode Linef((
)m.vMM & Set Mode Line
)fsModeMacro
fsOSTeco"e
0fs^RDisplay'
1fsmodech
^ fsOSTeco"n0 '
[0[1
fsxjname-(f6MAILT)"e0 '
2FO..QLast Correct Superioru1
fs%oplspu0
q0+q1"n
q1-2"e2M.VLast Correct Superior'
"#2uLast Correct Superior'
1fsmodechange
0-q0uLast Correct Superior'
0 i -(fsqpptr*2)fsmodech
[0[1[2[3[4[.1[.2[.3[.4
f[inslen
f[sstring
qEditor Nameu0
qModeu1
qBuffer Indexu3
0u.1
fsreadonlyu.2
:i*u.3
fsvz+bu.4
fnm.3
"n
:i1 q1uMode
0fo..Q 1 Mode Hooku2
q2"nm2''
f[BBind
f[DFile
g..Jj
:s[w.-1u.1
q.1jfq0f f~ 0-fq0-1"n0 '
hk
g0i
g(M(M.M& Get Current Time))
fsOSTeco"n
fsloadav[0
i g0'
i [
fsOSTeco"e
fs%OPLSP"n
fsxjname-(f6MAILT)"n
0fo..QLISPT AutoLoad Hookf"nu.3'
iLISP: '
"#
iMAIL: '''
g1
qSubmodeu2
fq2"gi- 2'
qAuto Fill Mode"ni Fill'
q:.B(q3+10)"ni Save'
"#qAuto Save Default"n
i NoSave''
qVisit File Save Old[0
q0"li SaveOld'
"#q0"ei NoSaveOld''
]0
q:.B(q3+12)f"n[0
i ReadOnlyFile
q0"li/Buf'
]0'
"#q.2"ni ReadOnlyBuf''
fs^RReplace"ni OverWrite'
fsTyiSink"ni Def'
Q.4"NI Narrow'
MSet Mode Line Hook+0u2
fq2"gg2'
0fo..QEditor Typeu2
fq2"ni < 2>'"#i -'
qBuffer Filenamesu1
qBuffer Nameu2
q1"Net 1
fsdfileu1
f~(fsdfn1:f6) 2"e
0u2''
q2"ni 2'
"#0a- -"e-2d''
i]
fq1"gg1fq1r
0u4.fsvb
fsosteco"n
.(!<!s>z-.u4)j
fshsname:f6u2
fsosteco-1"e
fq2 f~ 2"efq2d''
"#4 f~DSK:"e4d
fq2+2 f~< 2>"e
fq2+2d'''
zjfsdvers"e-2dq4-2u4''
"#
.(s: z-.u4)j
fsmachine:f6u2
:s;"l
1a- "ed'
3 f~ 2:"e4d'
:s:"l
1a- "ed''''
qInvert Filenames"n
z-q4jg(:fx*(j))i '
0fsvb
zj
fsdversion"'e+(
fsdversion+2"'e)"l
i =q:.b(q3+9)[0
q0"gq0\'
"#-dq0+1"ei#'
"#i~g0''
]0''
zjQ.1<I ^R]>JQ.1, [I
zji
hf= ..j"nhx..j'
0
MODLIN Fancy Mode Line handler% & Put winning mode line in effect & Get rid of this mode linea S Update Job Superior in Mode Line
For use with LISPT if superior is changing. Checks to see if superior
has changed, and calls MM& Set Mode Line if it has. This should be put
in FS^R Display in order to win. Takes a minimal amount of overhead to
check when superior has not changed. If job is a LISPT, runs
qLISPT Autoload Hook if nonzero. o S Set the ..J Mode to display options.
When setting the major mode, call this with a nonzero argument
and the major mode name as a string argument. It will change the mode
and run the <modename> Mode Hook variable, if there is one.d & Setup MODLIN Library
& Kill MODLIN Library
& Check for Correct Superior
& Fancy Mode Line
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2