{{{  comments
; put pick and pick all lines again.
; BUG:
;   if there is no pick and you call this command when standing on a closed-fold,
;   the lines of the fold are picked!
}}}
nodup
{{{  put-pick-and-copy-pick
(deffun put-pick-and-copy-pick (
  O_PUT_PICK
  if test-fold-line (
    O_ENTER_FOLD
    while not(test-end-fold) (O_COPY_PICK O_DOWN)
    O_EXIT_FOLD
  ) fi
))
}}}