Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/modeline.elib
There are no other files named modeline.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   J	fX[`wnH~	J
I-
@>yQ

r`
+j
%qll Modeline Library & Modeline & Setup Modeline Library & Update Time and Load Avg Toggle Date Display ~DIRECTORY~"~DOC~ & Kill Modeline Library ~DOC~ & Modeline #~DOC~ & Setup Modeline Library %~DOC~ & Update Time and Load Avg ~DOC~ Toggle Date Display ~DOC~ ~Filename~~Filename~

~INVERT~Ifsmodemacrom.cOld FS Mode Macro
fsclkintervalm.cOld FS Clk Interval
fsclkmacrom.cOld FS Clk Macro
m.m& Modelinefsmodemacro
1,m(m.m& Get Library Pointer)Kmptime"e
m(m.mLoad Library)time'
1800fsclkinterval
m.m& Update Time and Load Avgfsclkmacro
m.m& Modelinem.vModeline Safe Macro
m.m& Modelinem.vmm & Set Mode Line
0m.vModeline Full Update Time
0m.cTime Only* If zero, display both time and date, otherwise just time.Z-(fsqpptr*2)fsmodechange
q..o[9
fsvz+b[4
qEditor Name[0
qMode[1
qBuffer Index[3
"n:i1q1uMode
0fo..q1 Mode Hook[2
q2"nm2''
0[.1q..j[.2
<fq.2@;0:g.2-[:@;%.1
1,fq.2:g.2u.2>
f~.20-1-fq0"n0'
f[BBindg0i  
m(m.m& Get Current Time)u0
g0
fsosteco-1"e
fsloadaverageu0
i  0 '
0fo..qEditor Type[2
q2"ng2i  '
i(g1
qSubmodeu2fq2"g
i[2]'
qAuto Fill Mode"n
i Fill'
q:.b(q3+10)"n
i Save'
"#qAuto Save Default"n
i Save (off)''
fs^RReplace"ni Ovwrt'
fstyisink"ni Def'
q4"ni Narrow'
mSet Mode Line Hook+0u2
fq2"gg2'
i)  
qBuffer Nameu2
qBuffer Filenamesu1
q1"nq1f[dfile
f~(fsdfn1:f6)2"e0u2''
q2"ni2:  '
fq1"gg1
fsosteco"n
fq1rfshsname:f6u2
fsosteco-1"e
fq2f~2"efq2d''
"#4f~dsk:"e4d
fq2+2f~<2>"efq2+2d'''
zjfsdvers"e-2d''
fsdvers"'e+(fsdvers+2"'e)"l
q:.b(q3+9)u1
i (g1i)'
q:.b(q3+12)"gi (R-O)'
q:.b(q3+12)"li (BufR-O)'
i  '
zjq.1<i] >jq.1,[i
hf=..j"nhx..j'
01,m.m& Periodic Action"n
m(m.m& Periodic Action)'
qModeline Full Update Time"e
1uModeline Full Update Time
0'
"#
0uModeline Full Update Time'
f[inslen
qEditor Name[0
f~..j0-1-fq0"noSet'
fq..j-(fq0+18)"loSet'
qModeline Safe Macrof"n[0
q0-(]0wfsmodemacro)"noSet''
:i0..j
m(m.m& Get Current Time)[1
fqEditor Name+2:f01
fsosteco-1"e
fsloadaverageu1
fqEditor Name+11+(qTime Only"e10'"#0'):f01'
f=0..j"e0'
q0u..j
fr
0
!Set!
fsmodemacrof"n[0m0fr]0'
08qTime Only"n0'"#1'uTime Only
1fsmodechange
0~qOld FS Mode Macrofsmodemacro
qOld FS Clk Intervalfsclkinterval
qOld FS Clk Macrofsclkmacro
1fsmodechange
0

Modeline+Mode line with load average and time.  S  Load the new mode line and start the clock. 
   The time and load average are updated every minute.  If Time Only is zero,
   both time and date are displayed;  if nonzero, just the time (default is
   zero).  This library calls up the Time library.              aS  The mode line routine 
   Same as the usual Emacs default, plus time and load average.   rS  Real-time updating of time and load avg 
   Same as the Insert routine in the Time library, with added lines to update
   load average.  If Time Only is zero, display both time and date;  if non-
   zero, display time alone.        .C  Add/remove date display in mode line.  4S  Restore the old mode line and clock macros.  y& Setup Modeline Library 
& Modeline 
& Update Time and Load Avg 
Toggle Date Display 
& Kill Modeline Library 
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2