Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/time.elib
There are no other files named time.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 b u m u \
4 [ E
- S u i
! y
r ( z /
[ & Enable MODLIN AutoSave & Get Current Time& & Insert Correct Time In Mode Line & Kill KMPTIME Library & Setup KMPTIME Library# & Start Realtime Modeline Clock ~DIRECTORY~" ~DOC~ & Enable MODLIN AutoSave ~DOC~ & Get Current Time, ~DOC~ & Insert Correct Time In Mode Line ~DOC~ & Kill KMPTIME Library! ~DOC~ & Setup KMPTIME Library) ~DOC~ & Start Realtime Modeline Clock ~DOC~ ~Filename~ ~Filename~
~INVERT~O m.vOnly Time in Modeline
m.vTime Only
m.vSaved Time
0fo..QOld FS Clk Macro"e
fsclkmacrom.vOld FS Clk Macro'
13*5fsqvectorf([5)M.VMonths
:i*Janu:5(1)
:i*Febu:5(2)
:i*Maru:5(3)
:i*Apru:5(4)
:i*Mayu:5(5)
:i*Junu:5(6)
:i*Julu:5(7)
:i*Augu:5(8)
:i*Sepu:5(9)
:i*Octu:5(10)
:i*Novu:5(11)
:i*Decu:5(12)1 qOld FS Clk Macrofsclkmacro
0fsclkint
C [0[1[2[3[4[5[6
:i5
0fo..QTime Onlyu6
fsdate+1"e
q6"n:i*No Time '
"#:i*No Time & No Date ''
fsdate:fsfdconvertu1
q6"noSkipDate'
3,5:g1u2
0,2:g1u3
fsOSTeco"e
6,8:g1u4'
"#
6,10:g1u4'
Q:Months( 3)u3
0:g2-48"e
0:F2 '
:i5 2 3 4
!SkipDate!
fsOSTeco"e
12,14:g1u2
9,11:g1u3'
"#
14,16:g1u2
11,13:g1u3'
0fo..QTime Zone Adjustmentf"n+ 3u3
q3"l
q3+24u3
q6"e1,fq5:g5u5:i5< 5!>!''
q3-23"g
q3-24u3
q6"e1,fq5:g5u5!<!:i5> 5''
q3:\u3fq3-1"e:i30 3''w
F=200"e
F=300"e:i*Midnite 5 '
F=312"e:i*12 Noon 5 ''
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 '
q6"e:i* 3: 2 4 5 '
"#:i* 3: 2 4 ' ff&1"n'"#60'*30fsClkInt
m.vModeline Safe Macro
0m.vModeline Full Update Time
M.M& Insert Correct Time in Mode LinefsCLKMacro
0 - 0m.vAutoSaveFlag
[0[1
:i*fo..QMM & Periodic Actionu0
@:i1|%AutoSaveFlag-9"g0uAutoSaveFlagwm(m.m& Real-time Interrupt)'|
:i* 0 1m.vMM & Periodic Action
1,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~..J 0-1-FQ0"NoSet'
FQ..J-(FQ0+18)"loSet'
qModeline Safe Macrof"n[0
q0-(]0wfsmodemacro)"noSet''
:i0 ..J
qTime OnlyuSaved time
qOnly Time in ModelineuTime Only
M(M.M& Get Current Time)[1
qSaved TimeuTime Only
FQEditor Name+1:F0 1
F=0 ..J"e0 '
q0u..J
FR
0
!Set!
fsmodemacrof"n[0m0fr]0'
0 KMPTIME Timely macros for EMACS ( S Setup for using our winning macros & Clean up on exit
S Gets string form of time
Time in 7 chars + <Space> + Date in 9 chars
If qTime Only is nonzero, the just return time in 7 chars.S S Get the realtime clock interrupts going
Postcomma arg is the number of seconds to wait between updates (Default 60).
Precomma arg is time will only f^E the mode line when that macro is in
fsmodemacro3 & Set up to run AutoSave every 5 clock updates % S Updates modline display of time( & Setup KMPTIME Library
& Kill KMPTIME Library
& Get Current Time
& Start Realtime Modeline Clock
& Enable MODLIN AutoSave
& Insert Correct Time In Mode Line
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2