procedure eve_eliminate_tabs            ! Turn TABs to spaces

    local       target,
                old_mode,
                this_position;

this_position := mark(free_cursor) ;
old_mode := get_info(current_buffer, "mode");
set(INSERT, current_buffer);

position(beginning_of(current_buffer));

    loop
        target := search_quietly (ascii(9), FORWARD, EXACT);
        exitif (target = 0);
        position (target);
        erase_character(1);
	copy_text ( " " * eve$spaces_to_tab(current_offset));
    endloop;

position(this_position) ;
set(old_mode, current_buffer);

endprocedure;