procedure KHF$FIND_ALL_KEYS_MODULE_IDENT
	return "V03-001";
endprocedure;

!+
!  		KHF$FIND_ALL_KEYS.TPU
!               =====================
!
!  The following key definitions bind the FIND ALL command to the GOLD/A
!  key, the WILDCARD FIND ALL command to the GOLD/CTRL_A key, and the
!  CHANGE HIDE command to the GOLD/H key.  Both definitions are made in
!  the eve$x_user_keys key map, the same map used by EVE's DEFINE KEY
!  command.  These are just examples.  Feel free to change them, delete
!  them, or add other definitions as you please.
!-


DEFINE_KEY (eve$$kt_return +
	   "eve_find_all('')",		Key_Name ("a", shift_key),
	      " find_all",				eve$x_user_keys);

DEFINE_KEY (eve$$kt_return +
	   "eve_wildcard_find_all('')",	Key_Name (ctrl_a_key, shift_key),
	      " wildcard_find_all",			eve$x_user_keys);

DEFINE_KEY (eve$$kt_return +
	   "eve_change_hide",		Key_Name ("h", shift_key),
	      " change_hide",				eve$x_user_keys);