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_util.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_util.erl')
| -rw-r--r-- | src/edit_util.erl | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/src/edit_util.erl b/src/edit_util.erl index c539277..2a08e28 100644 --- a/src/edit_util.erl +++ b/src/edit_util.erl @@ -1,14 +1,6 @@ -%%%---------------------------------------------------------------------- -%%% File : edit_util.erl -%%% Author : Luke Gorrie <luke@bluetail.com> -%%% Purpose : Utility functions -%%% Created : 15 Oct 2000 by Luke Gorrie <luke@bluetail.com> -%%%---------------------------------------------------------------------- - -module(edit_util). --author('luke@bluetail.com'). --include_lib("ermacs/include/edit.hrl"). +-include("edit.hrl"). -export([keyname/1, status_msg/2, status_msg/3, update_minibuffer_window/2, select_window/2, update/3]). @@ -209,11 +201,11 @@ spawn_with_init(Pid, Ref, Buffers, What) -> Pid ! {ready, Ref}, spawn_with_apply(What), %% we miss this redraw if the command crashes. oops. - edit:invoke_later(?MODULE, redraw, []). + edit:invoke_async(?MODULE, redraw, []). spawn_with_apply({M, F, A}) -> apply(M, F, A); -spawn_with_apply(Fun) when function(Fun) -> +spawn_with_apply(Fun) when is_function(Fun) -> Fun(). @@ -223,9 +215,9 @@ redraw(State) -> State. %% Get the current working directory for the state or buffer. -pwd(State) when record(State, state) -> +pwd(State) when is_record(State, state) -> pwd((State#state.curwin)#window.buffer); -pwd(Buf) when atom(Buf) -> +pwd(Buf) when is_atom(Buf) -> case edit_buf:get_filename(Buf) of undefined -> case file:get_cwd() of @@ -242,4 +234,3 @@ pwd(Buf) when atom(Buf) -> Filename -> filename:dirname(Filename)++"/" end. - |