Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/mode2.elib
There are no other files named mode2.elib in the archive.
( W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
) T _ X f y s } ~ 8 Q A # - .
J = u L
[ T W b
: l
5 s M & Get Last Handle & Set MODE2 & Setup MODE2 Library Edit Mode 2 Options
Mode 2 Set Mode 2 Timeout ~DIRECTORY~ ~DOC~ & Get Last Handle ~DOC~ & Set MODE2 ~DOC~ & Setup MODE2 Library ~DOC~ Edit Mode 2 Options ~DOC~ Mode 2 ~DOC~ Set Mode 2 Timeout ~DOC~ ~Filename~ ~Filename~
~INVERT~ FSOSTECO"N:I*DTLBCHX[0'
"#:I*DTVBSFX[0'
Q0M.CMode 2 Options* What the 2nd mode line contains. See documentation of Mode 2 Macro.
:I*** M.CMode 2 Prefix* String that starts the second mode line.
:I* M.CMode 2 Field Separator!* String separating items on the second mode line
!1fsmodechange
:I*XM.V..J
F[BBind32<IM9 >96<I @ >
HFX*M.VDecontrolify DispatchF]BBind
!<<!0M.CMode 2!* >0 => Second Mode Line is active.!
"E0FSLINES '
"#FSHEIGHT -(FSTOPLIN )-(FSECHOLINES )-2FSLINES
1FSMODECHANGE '
0FO..QSet Mode Line Hook"E:I*M.VSet Mode Line Hook'
QSet Mode Line HookU0
:I* 0(M(M.M& Set MODE2 )W)USet Mode Line Hook
FSREFRESHU0Q0"E:I0'
@:I*\ 0
0U..H1FSMODECH \FSREFRESH
0FO..QMODE2 Setup Hook[0
fq0"G:M0'
@:I*\1FSECHOFLUSH
:I*CMODE2 has already been loadedFSECHODISPLAY
0FSECHOACTIVE\M.VMODE2 Setup Hook
1UMode 2
0 ? FF"E
QMode 2"E1UMode 2'"#0UMode 2''
"#UMode 2'n
QMode 2"E0 '
1:<fsInvModfsScrInv>
@fn|fsInvMod"n1:<0fsScrInv>'|
QMode 2 Options[0[1[2[3
QMode 2 Field Separator[A
QDecontrolify Dispatch[4
[9:I9-D94IQ..0+64I
F[BBINDGMode 2 Prefix
FQ0U20U1
!LOOP!
Q2-Q1"EB,ZF4
ZJ0F "E-2D'
HFX2FQ2-(FSWidth)"G0,(FSWidth):G2U2'
F=..J 2"E0 '
Q2U..J
FSHEIGHT-(FSECHOLI)-2F[TOPLIN
:FT 2
-1fstypeout
0U..H
0 '
Q1,%1:G0U3 3FBCDFHLRSTVX"LOLOOP'
Q1"NGA'O 3
!B!
GPrevious BufferI:OLOOP
!C!
FSMSNAME:F6U3G3
FSOSTECO"N
F~(FSHSNAME:F6) 3"EFKDIC<>''
"#I;'
OLOOP
!D!
FSOSTECO"EFSDATEFSFDCONV-9DOLOOP'
:I*002FO..QMode 2 Date FormatU3
3400000000.,fsdatefsfdconvertOLOOP
!F!
0FO..QTag Table FilenamesF"NU3G3FKC
FSHSNAME:F6U3
FQ3 F~ 3"EFQ3DIT<>'
ZJ<0A:F"D- ."E-D'0;'W-D>
.-5,.F~.TAGS"E-5D'
FSXUNAME:F6U3-fq3 F~ 3"E-FQ3D'
'
"#-FQAF"LD''
OLOOP
!H!
1:<G(M(M.M& Get Last Handle))>"N-fqaF"LD''
OLOOP
!L!
1:<G(FSLOADAV)>OLOOP
!R!
HKFSWidth/10+1<I123456789^>OLOOP
!S!
34IQSearch Default Ring[..O
.FSWordU3]..O
FQ3"L:I3'G334IOLOOP
!T!
FSOSTECO"EFSDATEFSFDCONV8R-9D8COLOOP'
:I*300FO..QMode 2 Time FormatU3
400 3000000.,fsdatefsfdconvert-2 FCOLOOP
!V!
IVF~(QEditor Name)EMACS"N
QEditor Nameu3
0FO..Q 3 Versionu3
Q3"NG345i''
GEMACS Version91IG(FSVERSION)93IOLOOP
!X!
0FO..QSet Mode 2 Hook"N
MSet Mode 2 Hook'
OLOOP Qforklist[1
FQ1[20[30[4[5
Qfrk"E:I*EXEC '
<Q3-Q2;
Q3:G1-27"E
Q4,Q3:G1U5
FQ5"GQfrk 5-Qfrk"EQ5 ''
%3U4'
%3>
:I* W FF"E1[0'"#[0'
Q0*60*60FSCLKINTERVAL
@:I*\M(M.M& Set Mode2)w0\FSCLKMACRO
0 q QMode 2 Options[1
M(M.M& Mini Initialized):I* 1 U Mode 2 Options Mode 2 Options
1FSModeChangeW MODE2! Add a second fancy mode line." Define second mode line stuff.$ C Toggles the display of the second mode line.
When on, the second mode line is displayed according to the value of the
option Mode 2 Options. Each character is interpreted in turn to insert
the corresponding information into the mode line. The codes are:
B -- Previous Buffer (default for Select Buffer )
C -- Working Directory
D -- Date
F -- Current TAGS File Name
R -- Range of column numbers (clobbers all else)
S -- Last Search String
T -- Time
V -- EMACS Version Number[TECO Version Number]
H -- Last FORK Handle (Twenex only)
L -- Load Average (Twenex only)
X -- Whatever is inserted by Set Mode 2 Hook
( S Computes the new second mode line.+ S Get the last fork handle as a string.< C Have Second Mode Line Updated at Arg Minute Intervals.D C Enter MiniBuffer on Mode 2 Options.
g(m.m ~DOC~ Mode 2)jk l & Setup MODE2 Library
Mode 2
& Set MODE2
& Get Last Handle
Set Mode 2 Timeout
Edit Mode 2 Options
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2