anchor.diff:  
   
   gen_fsm_to_record_1(FileName, RecordName, RecordFields, StateFuns, IsTuple, SearchPaths, TabWidth) ->
  -     ?wrangler_io("\nCMD: ~p:gen_fsm_to_record_1(~p,~p,~p,",
  -		 [?MODULE, FileName, RecordName, RecordFields]),
  -    ?wrangler_io(format_state_funs(StateFuns),[]),
  -    ?wrangler_io(",~p,~p, ~p).\n", [IsTuple, SearchPaths, TabWidth]),
  +    format_args(FileName, RecordName, RecordFields, StateFuns, IsTuple, SearchPaths, TabWidth, "gen_fsm_to_record_1"),
       gen_fsm_to_record(FileName, RecordName, RecordFields, StateFuns, IsTuple, SearchPaths, TabWidth, emacs, "").
   
   gen_fsm_to_record_1_eclipse(FileName, RecordName, RecordFields, StateFuns, IsTuple, SearchPaths, TabWidth) ->
  
positive.code: 	_ -> false
      end.
  
  add_util_funs(Forms, RecordName, RecordFields) ->
      TupleToRecordFunName = list_to_atom("tuple_to_" ++ atom_to_list(RecordName)),
      RecordToTupleFunName = list_to_atom(atom_to_list(RecordName) ++ "_to_tuple"),
      Fun = fun (Node, Acc) ->
  		  case refac_syntax:type(Node) of
  		    application ->
  
negative.code: 		format_state_funs_1(T)
      end.
      
  format_field_names([]) -> "[]";
  format_field_names(MFAs) ->
       "[" ++ format_field_names_1(MFAs).
  
  format_field_names_1([]) ->
      "";
  format_field_names_1([F|T]) ->
      case T of 
  	[] ->
  	   io_lib:format("~p]", [F])++
  		format_field_names_1(T);
  	_ ->
  	    io_lib:format("~p,", [F])++
  		format_field_names_1(T)
      end.
      
  