{{{  comments
; put pick and pick all lines again.
; if the macro-library-file kill-mark is included befor this file, the
; modified kill-buffer-handling is used.
; BUG:
;   if there is no pick and you call this command when standing on a closed-fold,
;   the lines of the fold are picked!
}}}
@if-using not(PUT-PICK)
  @use (PUT-PICK)
  {{{  put-pick-and-copy-pick
  (deffun put-pick-and-copy-pick (
    local (x) (
      if test-fold-line
        (beginning-of-line newline-and-indent previous-line set-counter x 1)
      else
        (set-counter x 0)
      fi
      @if-using (KILL-MARK)
         insert-folded-kill-buffer-
      @fi
      @if-using not(KILL-MARK)
         insert-folded-kill-buffer
      @fi
      {{{  if there was a pick, pick all lines again
      if test-fold-line (
        enter-fold
        while not(test-end-fold)
         ( @if-using (KILL-MARK)
              copy-to-kill-buffer-
           @fi
           @if-using not(KILL-MARK)
              copy-to-kill-buffer
           @fi
           next-line
         )
        exit-fold
      ) fi
      }}}
      if counter>0 x (next-line delete-line previous-line) fi
    )
  ))
  }}}
@fi
