> This *might* be what you need. I can't test it. That's fine. Your comments are EXTREMELY helpful because as you correctly note I am struggling with this. I still don't understand some of things you mention so please bear with me and I'll try narrow down the source of my misunderstanding. Thank you for your help and example. They are very much appreciated. Best Regards Dean
On 31 January 2017 at 18:31, Alexander Burger <a...@software-lab.de> wrote: > On Tue, Jan 31, 2017 at 07:14:57PM +0100, Alexander Burger wrote: > > The only place where it is good is the line (setq Ln (pack " " Ln)). For > the > > rest all 'setq's can be simply omitted if you fix the conditional flow. > > > > Try it! :) > > OK, could not resist ;) > > This *might* be what you need. I can't test it. > > (dm ln_completes> (Ln Ln_no) > (if (gt0 (: first_ln_no)) > (setq Ln (pack " " Ln)) ) > (=: buf (or (: new_buf) (: hdngs))) > (if (member Ln (: buf)) > (prog1 > (if (gt0 (: first_ln_no)) > (: first_ln_no) > Ln_no ) > (reset> This) ) > # not a member > (=: new_buf (fltr_mtchng_hdng_rmndrs Ln)) > (if (: new_buf) > (if (=0 (: first_ln_no)) > (=: first_ln_no Ln_no) ) > (reset> This) ) > 0 ) ) > > ♪♫ Alex > -- > UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe >
