( [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) m^MNW57I{W:& Setup SAVMAC Library& TEX Save-HookSmart 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 .:\u1fn1j 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[1[2[3 f[dfile [Buffer Filenames qBuffer Filenamesfsdfile g(hx*(f[bbind))j.u3 > j[0[1[2 <:s% Switch: ; :fllflx0fll :fllflx1fll1,(fq1-1):g1u1 0ls\def :fllflx21,(fq2-1):g2u2 <:i*C1 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 FileuFSAVMACMacros 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 %Character-Translation: and make that translation in rest of file & Setup SAVMAC Library Smart Write File & TEX Save-Hook +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2