anchor.diff: - %%%-------------------------------------------------------------------
  +%%%-------------------------------------------------------------------
   %%% File    : distel.erl
   %%% Author  : Luke Gorrie <luke@bluetail.com>
   %%% Purpose : Helper functions to be called from Emacs.
   %%%
   %%% Created : 18 Mar 2002 by Luke Gorrie <luke@bluetail.com>
   %%%-------------------------------------------------------------------
  -%%%@hidden
  -%%%@private
   -module(distel).
   
   -author('luke@bluetail.com').
   
   -include_lib("kernel/include/file.hrl").
  -
   
   -import(lists, [flatten/1, member/2, sort/1, map/2, foldl/3, foreach/2]).
   -import(filename, [dirname/1,join/1,basename/2]).
  
positive.code: %% Get the argument lists for a function in a module.
  %% Return: [Arglist]
  %% Arglist = [string()]
  get_arglists(ModName, FunName) when is_list(ModName), is_list(FunName) ->
      arglists(to_atom(ModName), FunName).
  
  arglists(Mod, Fun) ->
  
negative.code: to_list(X) when is_integer(X)-> integer_to_list(X);
  to_list(X) when is_float(X)  -> float_to_list(X);
  to_list(X) when is_atom(X)   -> atom_to_list(X);
  to_list(X) when is_list(X)   -> X.		%Assumed to be a string
  
  %% ----------------------------------------------------------------------
  %% RPC entry point, adapting the group_leader protocol.
  