anchor.diff:      do_recover_backups(Fs, NewPreviewPairs,[FileName| RecoveredFiles]).
   
   update_preview_pairs({FileName, NewFileName, SwpFileName},PreviewPairs) ->
  -    case [FName||{{_F, FName, _IsNew},_Swp}<-PreviewPairs, FName==FileName] of 
  +    case [FName||{{_F, FName, _IsNew},_Swp}<-PreviewPairs, FName==FileName] of
           [] -> [{{FileName, NewFileName, false}, SwpFileName}|PreviewPairs];
           _ ->
               lists:map(fun(Pair) ->
  
positive.code:                               end
                        end, PreviewPairs)
      end.
     
  %%-------------------------------------------------------------------
  %% Function: handle_info(Info, State) -> {noreply, State} |
  %%                                       {noreply, State, Timeout} |
  
negative.code:     if FileName /= NewFileName -> file:delete(NewFileName);
         true -> ok
      end,
      do_recover_backups(Fs, NewPreviewPairs, NewRecoveredFiles);
  do_recover_backups([{{FileName, NewFileName, true}, _Content}|Fs], PreviewPairs,RecoveredFiles) ->
      SwpFileName = filename:join([filename:rootname(FileName) ++ ".erl.swp"]),
      file:copy(NewFileName, SwpFileName),
  