Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/auto-save-mode.elib
There are no other files named auto-save-mode.elib in the archive.
PW[0 +8+fq(+4)[1
0fo10f"g+q1'
+fq()+4u1
fq1"l 0'
,q1:m(q1+4(]1]0))=^

]?(V0\8HAU'cFr8W<)60)& Auto Save All Buffers& Auto Save File& Auto Save Setup& Real-time Interrupt& Secretary Macro"& Setup AUTO-SAVE-MODE Library^R Save File~DIRECTORY~!~DOC~ & Auto Save All Buffers~DOC~ & Auto Save File~DOC~ & Auto Save Setup~DOC~ & Real-time Interrupt~DOC~ & Secretary Macro(~DOC~ & Setup AUTO-SAVE-MODE Library~DOC~ ^R Save File~DOC~ ~FILENAME~~FILENAME~

~INVERT~AUTO-SAVE-MODEK0fo..qAUTO-SAVE-MODE Loaded-13147547037"n
0m.CAuto-Save-Mode Setup HookIf non-0, called when AUTO-SAVE-MODE is loaded
0m.CBefore Auto Save HookIf non-0 is run just before auto saving
0m.CAfter Auto Save HookIf non-0 is run just after auto saving
0m.CAuto Save Star* If non-0, user wants * in mode line after auto-save
13147547037m.vAUTO-SAVE-MODE Loaded'
[1[k
m.mKill Variableuk
mkMM & Auto Save Setupw
mkMM & Auto Save Filew
mkMM ^R Save Filew
mkMM & Secretary Macrow
mkMM & Auto Save All Buffersw
mkMM & Real-time Interruptw
0fo..qExit Hookf"ew :i*'u1
@:i*|ff"e m(m.m& Auto Save All Buffers)'
1|m.vExit Hookw
qAuto-Save-Mode Setup Hookf"nu1 m1'
"#w
m.m& Secretary Macrof(u.f)u..f
m.m& Real-time InterruptfsClkMacrow
fsClkInterval"e 4*60*60fsClkIntervalw'
m.m^R Save Fileu:.x()'
q0[1
qBuffer Index[2
qBuffer Filenamesf"nf[DFile
fsDVersion"e
q:.b(q2+12)"e
1u1'''
q1u:.b(q2+10) r[1[2[3[4 0f[VB 0f[VZ
-qBuffer Index"e qBuffer filenamesu1'
"# q:.b(+2)u1'
q1"e @ftNo auto save filenames.  0fsEchoActivew '

 q1f[DFile
fsURead"n e[fne]'
1:< 1,er fsIFileu3 fsIFVersionu4 fsIFCDateu2 ec
q2-(0fo..qASav 3 File)"e
q4fsDVersionw
fsDFileu1
etASAVE OUTPUT'
>w
qBefore Auto Save Hookf"nu2 m2'w
fsUWrite"n e\fne^'
ei fsOFCDateu2
hp ef1
fsOFVersionf"gu:.b(+9) 1fsModeChange'w
zu:.b(+5+6)
fsOFileu1
q2u:.b(+8)
q2m.vASav 1 Filew
@ftAuto saved: 1

qAfter Auto Save Hookf"nu1 m1'w
0fsXModifiedw
qAuto Save Star"e 0fsModifiedw'
0fsEchoActivew -16:"l m(m.m& Auto Save All Buffers)w 1'
 :i*CfsEchoDis
ff"g
fsXModified"e @ft(No changes need to be written)
    0fsEchoActivew 1'
@ft(auto save)

qBuffer Indexm(m.m& Auto Save File)
1'
[1[2[3[4 f[DFile
0f[VB 0f[VZ
qBuffer Filenamesf"ew :i*No filenames to save underfsErr
    'u1
et1
q1u2
fsURead"n e[fne]'
1:< 1,er fsIFileu2 fsIFVersionu3 fsIFCDateu4 ec
q4-(0fo..qASav 2 File)"e
q3fsDVersionw
fsDFileu1
etASAVE OUTPUT'
q:.b(qBuffer Index+8)u3
q4"n q3"n q4-q3"n
ftThis file has been written on disk since you last read or wrote it.
Should I write it anyway
        m(m.m& Yes or No)(f 0u..h)"e 0''''
     >w

 fsXModified"e @ft(No changes need to be written)
'
 "# fsUWrite"n e\fne^'
ei fsOFCDateu3
hp ef1
fsOFVersionf"gu:.b(+9) 1fsModeChange'w
zu:.b(qBuffer Index+5+6)
fsOFileu2
q3u:.b(qBuffer Index+8)
@ftUser saved: 2

    0fsXModifiedw'
fs^RMDlyfs^RMCntw
0fsModifiedw
m(m.mKill Variable)ASav 2 Filew
0fsEchoActivew 1 4qBuffer Index[1
q:.b(q1+4)[..o
fsXModified"e 1'
q:.b(q1+10)"e 1'
:i*CfsEchoDis @ft(auto save)
 0fsEchoActivew
fs^RMDlyfs^RMCntw
q1m(m.m& Auto Save File)
1L0[1 [2 -1[3 [..o
< 1f<!Test!
q:.b(q1+10)@;
q:.b(q1+4)u..o
fsXModified@;
%3"e :i*CfsEchoDis @ft(auto save)
    0fsEchoActivew'
q1m(m.m& Auto Save File)
>
q1+q:.b(q1)u1
q1-(fq.b/5); >
?0fsTyiCount"n 0'
m(m.m& Auto Save All Buffers)
 0@v 05New version of Auto Save Mode and its associates. S Install hooks, create variables.
Runs Auto-Save-Mode Setup Hook, if it is non-0, in which case it
must take care of setting keys, fsClkMacro, fsClkInterval, ..F and
.F.  We set those only when there is no hook.
This object file was compressed on 1:52pm  Monday, 11 March 1996
by ALDERSON on TOED.XKL.COM from the following source libraries:

   DXX:<EMACS>AUTO-SAVE-MODE.EMACS.118,	10/27/84 11:37:234S Decide whether to turn on auto saving for file,S Subroutine that may write out an auto save file.
NUMARG is Buffer Index of buffer in .B to save.
We run Before Auto Save Hook and After Auto Save Hook if non-0.C^R Write out a user-save file if needs it.
A user-save file is one written by user decision, and therefore never to
    be touched by auto saving.  E.g. a high-level backup point.
Declares this version to be a user-saved file, i.e. NOT an auto saved
    one.  Thus, auto saving will not occur to this version again.
Given an explicit NUMARG, we just run & Auto Save File, to ensure that the
    file is currently safe, if not user-level consistent:  thus this will
    keep the file declared an auto save file.
A NUMARG of 16 or greater calls & Auto Save All Buffers.S ..F:  Auto save for use in ^R mode editing.
The buffer is auto saved after every fs^RMDly characters.
Auto saving happens by calling & Auto Save File.|S For each buffer that requires it.
I.e. for each that is modified and has auto saving on.
& Auto Save File is called.-S Save file after 5 minutes of idle time.& Setup AUTO-SAVE-MODE Library
& Auto Save Setup
& Auto Save File
^R Save File
& Secretary Macro
& Auto Save All Buffers
& Real-time Interrupt
\+8+fq(+4)[2 0[3
< %3,-q2f2u3 q3&1@; q3"l 0' >
f[BBind q3-1*5,q3*5g2 q:..o(0)+q2