diff options
| author | Felix Lange <fjl@twurst.com> | 2011-10-14 05:45:42 +0200 |
|---|---|---|
| committer | Felix Lange <fjl@twurst.com> | 2011-10-14 05:45:42 +0200 |
| commit | bd5145368593e09460d4461256ee4f934b2ebf26 (patch) | |
| tree | 471852782d61d64bede27d67552eb79af0a598aa /src/edit_extended.erl | |
| parent | 90640c1aed302fd83a500bb9ccdfb6cf7b481112 (diff) | |
| download | ermacs-fork-bd5145368593e09460d4461256ee4f934b2ebf26.tar.gz | |
remove cruft
cruft includes:
- module header comments (yikes..)
- author attributes (sorry luke)
- old guard tests
Diffstat (limited to 'src/edit_extended.erl')
| -rw-r--r-- | src/edit_extended.erl | 14 |
1 files changed, 3 insertions, 11 deletions
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 <luke@bluetail.com> -%%% Purpose : execute-extended-command (emacs lingo) -%%% Created : 14 Jan 2001 by Luke Gorrie <luke@bluetail.com> -%%%---------------------------------------------------------------------- - -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}; |