Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/clock.elib
There are no other files named clock.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   JBUh:s?"	8'
=
"KWZ	QoKyFf& Get Current Time&& Insert Correct Time In Mode Line& Set My Mode Line& Setup CLOCK Library#& Start Realtime Modeline Clock~DIRECTORY~~DOC~ & Get Current Time,~DOC~ & Insert Correct Time In Mode Line~DOC~ & Set My Mode Line~DOC~ & Setup CLOCK Library)~DOC~ & Start Realtime Modeline Clock~DOC~ ~Filename~~Filename~

~INVERT~y0FO..QCLOCK Setup Hook[1
FQ1"GM1'
"#M.M& Set My Mode LinefsModeMacro
m(m.m& Start Realtime Modeline Clock)'
y[0[1[2[3[4
fsdate:fsfdconvertu1
12,14:g1u2
9,11:g1u3
F=200"e
F=300"e:i*Midnite'
F=312"e:i*Noon   ''
3/12"e
:i4am'
"#(3-12):\u3
fq3-1"e:i3 3'
:i4pm'
F=3 0"e:i312'
"#F=300"e:i312''
0:g3-48"e
0:F3 '
:i*3:24
(30*60)FSClkInt'
"#
30*(F)FSClkInt'
0M.VModeline Full Update Time
M.M& Insert Correct Time in Mode LinefsCLKMacro
0j1,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+8)"loSet'
:i0..J
M(M.M& Get Current Time)[1
FQEditor Name+1:F01
F=0..J"e0'
q0u..J
FR
0
!Set!
m(fsmodemacro)fr
0-(FSQPPTR*2)FSMODECH
QEditor Name[0
QMode[1
"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 
g(m(m.m& get current time)*)I 
0FO..QEditor Type[2
Q2"NG2I '
I(G1
QSubmodeU2FQ2"G
I[2]'
QAuto Fill Mode"N
I Fill'
QAuto Save Mode"N
I Save'
"#QAuto Save Default"N
I Save(off)''
FS^RREPLACE"NI Ovwrt'
FSTYISINK"NI Def'
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''
I QInhibit Write"LI(RO) ''
ZJQ.1<I] >JQ.1,[I
HX..J
0	CLOCKTime macros for EMACSAS Setup for showing time in mode line.
Runs Q$CLOCK Setup Hook$ if there one.
Updates display every minute, but you can change this by doing
<seconds>MM & Start Realtime Modeline Clock.2S Returns Time as a string of exactly 7 chars.{S Get the realtime clock interrupts going.
Optional numeric argument specifies seconds between update.  Default is 60.'S Updates modeline display of time.S Set the ..J Mode to display options and current time.
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.& Setup CLOCK Library
& Get Current Time
& Start Realtime Modeline Clock
& Insert Correct Time In Mode Line
& Set My Mode Line
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2