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
