Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/savmac.elib
There are no other files named savmac.elib in the archive.
( W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
m 6 C ^ M N W ^ n I { + } x : & Setup SAVMAC Library & TEX Save-Hook Smart Write File ~DIRECTORY~ ~DOC~ & Setup SAVMAC Library ~DOC~ & TEX Save-Hook ~DOC~ Smart Write File ~DOC~ ~Filename~ ~Filename~
~INVERT~^ m.mSmart Write Fileu:.x( )
1,m(m.m& Get Library Pointer)TeX"em(m.mLoad Library)TeX' ff"e@:m(m.mWrite File)'
[1[2[F
qBuffer FilenamesuF
.:\u1fn 1j
f[vbf[vz0,(fsz)fsbound
j1:fb-*-:"loAbort'
.,(1:fb-*-:"loAbort'fkc.)fsboundwj
:sSave-Hook::"loAbort'
.,(:s;:"lzj-s c'"#r'.)x1
1,m.m& 1 Save-Hooku2
0,(fsz)fsbound
q1"efsrgetty"n@'!"!ft
Can't find & 1 Save-Hook
m(m.mWrite File) F'
"#1:<@m2(w>"n
!"!ft
Error generated in macro'ing & 1 Save-Hook
m(m.mWrite File) F'
"#)f"e-1,m(m.mWrite File) F'''
0
!Abort!
fsrgetty"n@'ft(No Save Hook -- File not Saved)
0fsechoactive
0 5 [1[2[3
f[dfile
[Buffer Filenames
qBuffer Filenamesfsdfile
g(hx*(f[bbind))j.u3
<q3j:s% Character-Translation: ;
1 x12c.,(:l.)x2.u3
<:s\ 1;-dg2r>>
j[0[1[2
<:s% Switch: ;
:fllflx0fll
:fllflx1fll1,(fq1-1):g1u1
0ls\def
:fllflx21,(fq2-1):g2u2
<:i*C 1 fsechodisplayout
1,1m(m.m& Yes or No)f(:;
)"ei %Default: fkcg00;'
>
l>
j:s% UnTabify:"l
jm(m.mUnTabify)'
j<:s% Begin TeX-Display:;fkdk
.,(s% End TeX-Display:fkd.)m(m.mSetup Indented TeX Display)'>
et TEX
0uBuffer filenames
5,m(m.m& Read Filename)Write TeX FileuF
SAVMAC< Macros for doing special saving to an alternate filename & Things to do to set us up ; ^R Write file being smart about -*- Save-Hook:...; -*- # S Process and save a TEX file
Find occurences of
%<Space>Character-Translation:<Space><Old-Char><Space><New-Char>
and make that translation in rest of file ? & Setup SAVMAC Library
Smart Write File
& TEX Save-Hook
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2