anchor.diff:                  Column =< EndColumn -> {function_use, CurrentModule, Function, length(Args)};
                   true -> undefined
               end;
  -        ({call, {_, _}, {remote, {_, _}, {atom, {_, _}, Module}, {atom, {L, StartColumn}, Function}}, Args}) when L =:= Line andalso StartColumn =< Column ->
  +        ({call, {_, _}, {remote, {_, _}, {atom, {_, MStartColumn}, Module}, {atom, {L, StartColumn}, Function}}, Args}) when L =:= Line andalso MStartColumn =< Column ->
  +            MEndColumn = MStartColumn + length(atom_to_list(Module)), 
               EndColumn = StartColumn + length(atom_to_list(Module)) + 1 + length(atom_to_list(Function)),
  -            if
  -                Column =< EndColumn -> {function_use, Module, Function, length(Args)};
  -                true -> undefined
  +            if 
  +                Column =< MEndColumn -> {module_use, Module};
  +                true -> if 
  +                            Column =< EndColumn -> {function_use, Module, Function, length(Args)};
  +                            true -> undefined
  +                        end
               end;
           ({'fun',{L, StartColumn}, {function, Function, Arity}}) when L =:= Line andalso StartColumn =< Column ->
               EndColumn = StartColumn + 4 + length(atom_to_list(Function)),
  
positive.code:             end
      end.
  
  find_element({function_use, Module, Function, Arity}, CurrentFileSyntaxTree, CurrentFile) ->
      {SyntaxTree, File} = get_module_syntax_tree(Module, CurrentFileSyntaxTree, CurrentFile),
      case find_function(SyntaxTree, Function, Arity) of
  
negative.code:         end
      end,
      find_in_file_syntax_tree(FileSyntaxTree, Fun).
  
  find_module(FileSyntaxTree, Module) ->
      case lists:keyfind(module, 3, FileSyntaxTree) of
      {attribute, Position, module, Module} -> {attribute, Position, Module};
      _ -> undefined
      end.
  