/*
 *  Copyright (c) 1992, 1993 John E. Davis  (davis@amy.tch.harvard.edu)
 *  All Rights Reserved.
 */
#define PC_NULL	"^@^C"
#define PC_UP	"^@H"
#define PC_DN	"^@P"
#define PC_RT	"^@M"
#define PC_LT	"^@K"
#define PC_PGUP	"^@I"
#define PC_PGDN	"^@Q"
#define PC_INS	"^@R"
#define PC_DEL	"^@S"
#define PC_END	"^@O"
#define PC_HOME	"^@G"

#define PC_F1	"^@;"
#define PC_F2	"^@<"
#define PC_F3	"^@="
#define PC_F4	"^@>"
#define PC_F5	"^@?"
#define PC_F6	"^@@"
#define PC_F7	"^@A"
#define PC_F8	"^@B"
#define PC_F9	"^@C"
#define PC_F10	"^@D"

#define PC_ALT_F1	"^@h"
#define PC_ALT_F2	"^@i"
#define PC_ALT_F3	"^@j"
#define PC_ALT_F4	"^@k"
#define PC_ALT_F5	"^@l"
#define PC_ALT_F6	"^@m"
#define PC_ALT_F7	"^@n"
#define PC_ALT_F8	"^@o"
#define PC_ALT_F9	"^@p"
#define PC_ALT_F10	"^@q"

#define PC_SHIFT_F1	"^@T"
#define PC_SHIFT_F2	"^@U"
#define PC_SHIFT_F3	"^@V"
#define PC_SHIFT_F4	"^@W"
#define PC_SHIFT_F5	"^@X"
#define PC_SHIFT_F6	"^@Y"
#define PC_SHIFT_F7	"^@Z"
#define PC_SHIFT_F8	"^@["
#define PC_SHIFT_F9	"^@\\"
#define PC_SHIFT_F10	"^@]"

define_key1(PC_DEL, (VOID *) delete_char_cmd, F_INTRINSIC, Global_Map);
define_key1(PC_NULL, (VOID *) set_mark_cmd, F_INTRINSIC, Global_Map);
define_key1(PC_LT, (VOID *) previous_char_cmd, F_INTRINSIC, Global_Map);
define_key1(PC_UP, (VOID *) previous_line_cmd, F_INTRINSIC, Global_Map);
define_key1(PC_DN, (VOID *) next_line_cmd, F_INTRINSIC, Global_Map);
define_key1(PC_RT, (VOID *) next_char_cmd, F_INTRINSIC, Global_Map);
define_key1(PC_PGUP, (VOID *) pageup_cmd, F_INTRINSIC, Global_Map);
define_key1(PC_PGDN, (VOID *) pagedown_cmd, F_INTRINSIC, Global_Map);
define_key1(PC_HOME, (VOID *) bol, F_INTRINSIC, Global_Map);
define_key1(PC_END, (VOID *) eol_cmd, F_INTRINSIC, Global_Map);

define_key1("^K^@M", (VOID *) scroll_left, F_INTRINSIC, Global_Map);
define_key1("^K^@K", (VOID *) scroll_right, F_INTRINSIC, Global_Map);
define_key1("^K^@H", (VOID *) bob, F_INTRINSIC, Global_Map);
define_key1("^K^@P", (VOID *) eob, F_INTRINSIC, Global_Map);

/* wordperfect type stuff */
define_key1(PC_F1, (VOID *) kbd_quit, F_INTRINSIC, Global_Map);
define_key1(PC_F2, (VOID *) search_forward_cmd, F_INTRINSIC, Global_Map);
define_key1(PC_SHIFT_F2, (VOID *) search_backward_cmd, F_INTRINSIC, Global_Map);
define_key1(PC_F4, (VOID *) indent_line, F_INTRINSIC, Global_Map);
define_key1(PC_ALT_F5, (VOID *) set_mark_cmd, F_INTRINSIC, Global_Map);
define_key1(PC_SHIFT_F4, (VOID *) narrow_paragraph, F_INTRINSIC, Global_Map);
define_key1(PC_SHIFT_F6, (VOID *) center_line, F_INTRINSIC, Global_Map);
define_key1(PC_F7, (VOID *) exit_jed, F_INTRINSIC, Global_Map);
define_key1(PC_F10, (VOID *) replace, F_INTRINSIC, Global_Map);
