Re: Put a Style in memory?

[Harry Binswanger hb@xxxxxxxx]

Thanks, Carl.

I already adapted the earlier code to my idiosyncratic uses, so I'll pass
on this, but it's good to have in the repertoire.


> Harry wrote:
> > Yep. Works
> > great.
>
> Here's a matched pair of routines: ADDSS (same as before, but
> tweaked 
> to preserve original cursor position) and a new frame, DELSS, which 
> deletes the empty SS commands embedded by ADDSS (leaving the 
> corresponding US commands intact).
>
>
> XPLeNCODE v2.0
> b-gin [UNTITLED]
> {{;5addss}} Add dummy (empty) SS commands for orphan US comma
> nds in current file (command(s) embedded at top of file) [CLD
> ][cr|lf]{002}[BX_]es
> 1[Q2_]{<}SX01,{<}CP{>}{>}[DX_][XP_][TF_]
> [YD_]{<}SV02,{>}{<}LBa{>}[BX_]se 
> [w<]US[Q2_]{<}IF@not({<}ER{
> {062}}){>}[DF_][BX_]se/f 
> [w>][Q2_][DF_]{<}SV03{>}[CR_]{<}SX50,{<
> }CP{>}{>}[YD_][TF_][BX_]se
> "[w<]SS{<}PV03{>}"[Q2_]{<}IF{<}ER{
> {062}}{>}{<}SX02,{<}IS02{>}+"{<}SS"+{<}IS03{>}+"{>}"{>}{<}EI{>}[J
> M_]2.ReJuMP[Q2_]{<}GLa{>}{<}EI{>}{<}IF{<}VA|02{>}>0{>}[TF_]{<
> }GT02{>}{<}EI{>}{<}SX50,{<}PV01{>}+{<}VA|02{>}{>}[JM_]2.ReJuM
> P[Q2_][DO_][FF_]{<}PRDone{>}{002}[cr|lf][cr|lf]{{;5delss}} De
> lete dummy (empty) SS commands from current file (leaves corr
> esponding US commands intact) [CLD][cr|lf]{002}[BX_]es 1[Q2_]
> {<}SX50,{<}CP{>}{>}[DX_][XP_][TF_]{<}LBa{>}[YD_][BX_]se
> "[w<]
> SS"[Q2_]{<}IF@not({<}ER{>}){>}[BX_]seb 
> [w<][Q2_][DF_][BX_]se
>  
> [w>][Q2_][DF_]{<}SV01{>}{<}IF","{238}{<}IS01{>}<0{>}[DN_]{<
> }EI{>}{<}GLa{>}{<}EI{>}[JM_]2.ReJuMP[Q2_][DO_][FF_]{<}PRDone{
> {062}}{002}[cr|lf][cr|lf]
> -nd
> XPLeNCODE
>
>
> --
> Carl Distefano
> cld@xxxxxxxx