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_extended.erl | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) (limited to 'src/edit_extended.erl') diff --git a/src/edit_extended.erl b/src/edit_extended.erl index 31920ca..3849155 100644 --- a/src/edit_extended.erl +++ b/src/edit_extended.erl @@ -1,14 +1,6 @@ -%%%---------------------------------------------------------------------- -%%% File : edit_extended.erl -%%% Author : Luke Gorrie -%%% Purpose : execute-extended-command (emacs lingo) -%%% Created : 14 Jan 2001 by Luke Gorrie -%%%---------------------------------------------------------------------- - -module(edit_extended). --author('luke@bluetail.com'). --include_lib("ermacs/include/edit.hrl"). +-include("edit.hrl"). -compile(export_all). -compile({parse_transform, edit_transform}). @@ -20,7 +12,7 @@ extended_command(State, Mod, Func, Args) -> execute(State, Mod, Func, Args, []) -> case catch apply(Mod, Func, [State | Args]) of - S when record(S, state) -> + S when is_record(S, state) -> S; {'EXIT', Rsn} -> io:format("** Crash: ~p~n", [Rsn]), @@ -90,7 +82,7 @@ find_cmd_info(Mod, Func) -> case catch Mod:command_info() of {'EXIT', _} -> {[], ""}; - L when list(L) -> + L when is_list(L) -> case lists:keysearch(Func, 1, L) of {value, {_, Params, Doc}} -> {Params, Doc}; -- cgit v1.2.3