procedure tpu$local_init
    eve$arg1_locate_key := eve$arg1_buffer;
endprocedure;

procedure eve_locate_key(the_arg)

local home_buffer,	! Save starting buffer
	temp,		! For buffer name lookup
	loop_buffer,	! For buffer location by name
	found_it,
	loop_buffer_name,
	command_name;	! Command to look up
	
    command_name := the_arg;
    if (the_arg = '') then 
        command_name := read_line('Command to locate: ');
    endif;         
home_buffer := current_buffer;

! See if we already have a buffer LIST KEYS

loop_buffer := get_info (buffers, eve$kt_first);
found_it := 0;
loop
    exitif loop_buffer = 0;
    loop_buffer_name := get_info (loop_buffer, eve$kt_name);
    if loop_buffer_name = "LIST KEYS" then
	found_it := 1;
	exitif 1;
    endif;
    loop_buffer := get_info (buffers, "next");
endloop;

if found_it then
	eve_buffer("LIST KEYS");
else
	eve_list_keys;
endif;

eve_occurs(command_name);
temp := get_info(home_buffer,"name");
eve_buffer(temp);
endprocedure;