!	NOTES Key additions
 define_key ("notes$do_command ('read/marker')", key_name (kp9, shift_key), 
	" read /Marker","notes$user_keys");
 define_key ("notes$do_command ('mark')", kp9, 
	" add mark","notes$user_keys");


!	WPS Key additions
 define_key ("eve_dcl ('')", key_name ('i', shift_key), " dcl","eve$wps_keys");
 define_key ("eve_spell", key_name ('s', shift_key), " spell","eve$wps_keys");
 define_key("eve_write_file ('')", key_name ('w', shift_key), " write_file",
		"eve$wps_keys");
 define_key ("eve_show", key_name ('z', shift_key), " show","eve$wps_keys");

 define_key ("eve_replace ('','')", key_name (';', shift_key),
            " replace", "eve$wps_keys");
 define_key ("eve_spawn", key_name ('$', shift_key), " spawn", "eve$wps_keys");
 define_key ("eve$wps_next_screen", key_name ('>', shift_key), " next_screen", 
		"eve$wps_keys");
 define_key ("eve$wps_previous_screen", key_name ('<', shift_key), 
		" previous_screen", "eve$wps_keys");

 define_key ("eve$check_bad_window", ctrl_f_key, " editing_window", 
		"eve$wps_keys");

 define_key ("eve_mark('')", kp9, " mark", "eve$wps_keys");
 define_key ("eve_go_to('')", key_name(kp9, shift_key)," go_to","eve$wps_keys");

 define_key ("eve$wps_find_next", key_name (e1, shift_key), " find_next",
		"eve$wps_keys");
 define_key ("eve_insert_here", key_name (e2, shift_key), " paste",
		"eve$wps_keys");
 define_key ("eve$wps_copy", key_name (e3, shift_key), " copy","eve$wps_keys");
 define_key ("eve$wps_top", key_name (e5, shift_key), " top", "eve$wps_keys");
 define_key ("eve$wps_bottom", key_name (e6, shift_key), " bottom", 
		"eve$wps_keys");

 define_key ("eve$wps_next_screen", key_name (down, shift_key), " next_screen", 
		"eve$wps_keys");
 define_key ("eve$wps_previous_screen", key_name (up, shift_key), 
		" previous_screen", "eve$wps_keys");

 define_key ("eve_quote", f7, " quote", "eve$wps_keys");
 define_key ("eve$insert_text (ascii (27))", key_name (f7, shift_key),
		" escape", "eve$wps_keys");

 define_key ("eve_capitalize_word", f8, " capitalize_word", "eve$wps_keys");
 define_key ("eve_uppercase_word", key_name (f8, shift_key), 
		" capitalize_word", "eve$wps_keys");

 define_key ("eve_one_window",f17," one_window","eve$wps_keys");
 define_key ("eve_two_windows",f18," two_windows","eve$wps_keys");
 define_key ("eve_get_file('')", key_name (f18, shift_key), " get_file",
		"eve$wps_keys");
 define_key ("eve_other_window",f19," other_window","eve$wps_keys");
 define_key ("eve_buffer('')", key_name (f19, shift_key), " buffer",
		"eve$wps_keys");
 define_key ("if current_offset<>length(current_line)then" + 
  " eve$edt_x_deleted_word := erase_character(length(current_line));endif;",
		f20, " erase_eol", "eve$wps_keys");

 define_key ("copy_text(':-)')", key_name (')', shift_key), " smile",
		"eve$wps_keys");
 define_key ("copy_text(':-}')", key_name ('}', shift_key), " grin",
		"eve$wps_keys");
 define_key ("copy_text(':-(')", key_name ('(', shift_key), " frown",
		"eve$wps_keys");

! Terminal must be /NOLINE_EDIT or /PASTHRU for these to work....
 define_key ("wpe_line := erase_line", f6," erase_line","eve$wps_keys");
 define_key ("copy_text (wpe_line); split_line;", key_name (f6, shift_key),
		" restore_line","eve$wps_keys");

!	FIX BUFFERS TO ALWAYS BE IN INSERT MODE
 set (insert, NOTES$X_EVE_COMMAND_BUFFER);
 set (insert, NOTES$X_COMMAND_BUFFER);