From bd5145368593e09460d4461256ee4f934b2ebf26 Mon Sep 17 00:00:00 2001 From: Felix Lange Date: Fri, 14 Oct 2011 05:45:42 +0200 Subject: remove cruft cruft includes: - module header comments (yikes..) - author attributes (sorry luke) - old guard tests --- src/edit_help.erl | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) (limited to 'src/edit_help.erl') diff --git a/src/edit_help.erl b/src/edit_help.erl index dc904cf..3f93467 100644 --- a/src/edit_help.erl +++ b/src/edit_help.erl @@ -1,13 +1,5 @@ -%%%---------------------------------------------------------------------- -%%% File : edit_help.erl -%%% Author : Luke Gorrie -%%% Purpose : Help-related functions -%%% Created : 2 Feb 2002 by Luke Gorrie -%%%---------------------------------------------------------------------- - -module(edit_help). - --include_lib("ermacs/include/edit.hrl"). +-include("edit.hrl"). -import(edit_lib, [buffer/1]). @@ -37,7 +29,7 @@ find_source(S) -> {Mod, Fun, Args} -> find_source(S, Mod, Fun); _ -> - edit_lib:status_msg(S, "Not bound to a function") + edit_util:status_msg(S, "Not bound to a function") end. find_source(S0, Mod, Fun) -> @@ -51,9 +43,9 @@ find_source(S0, Mod, Fun) -> end. guess_source_file(S0) -> - case regexp:sub(S0, "ebin", "src") of + case re:replace(S0, "ebin", "src", [{return, list}]) of {ok, S1, _} -> - case regexp:sub(S1, "beam", "erl") of + case re:replace(S1, "beam", "erl", [{return, list}]) of {ok, S2, _} -> case file:read_file_info(S2) of {ok, _} -> -- cgit v1.2.3