do {                                                          
next if ($answer == wxCANCEL);
       & pce::edit:: save_positions;
       $answer = &sniff_selection(0, $sci_frame->GetTextLength);
&pce::edit::restore_positions;
}
until (&pce::document::select_next == $first_doc);