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);