PROCEDURE    some_cjc_keydefs;

define_key   (
             "eve_dcl ( '' )" ,
             F11 ,
             "do a DCL command"
             ) ;

define_key   (
             "eve_include_file( '' )" ,
             F12 ,
             "include a file at the current position"
             ) ;

define_key   (
             "eve_buffer( '' )" ,
             F13 ,
             "change buffer "
             ) ;

define_key ( "eve_fill_paragraph; eve$position_in_middle ( mark ( NONE ) );" ,
           F19 ,
           " paragraph fill " ) ;

define_key  (
             "cjc_buffer_manager" ,
             F20 ,
             "buffer manager"
             ) ;

define_key   (
             "message ( 'use an arrow key to stop safely' ) ; "
             + "scroll ( current_window ) " ,
             key_name ( E6 , SHIFT_KEY ) ,
             "continuous scroll"
             ) ;

define_key   (
             "eve_line( '' )",
             PF4 ,
             "go to line"
             ) ;

define_key   (
             "copy_text ( "
                 + "ascii ( "
                     + "int ( "
                         + "read_line ( "
                             + " 'Decimal value of character:  ' "
                 + " ) ) ) ) " ,
             key_name ( 'A' , SHIFT_KEY ) ,
             "insert ASCII character"
             ) ;

define_key   (
             "change_case ( search ( remain , FORWARD ) , UPPER )" ,
             key_name ( 'L' , SHIFT_KEY ) ,
             "UPCASE rest-of-line"
             ) ;   	

define_key   (
             "change_case ( search ( remain , FORWARD ) , LOWER )" ,
             CTRL_L_KEY ,
             "downcase REST-OF-LINE") ;

define_key   (
             "eve_change_mode" ,
             CTRL_T_KEY ,
             "change insert/overwrite mode"
             ) ;

define_key ( "compile ( current_buffer ) " ,
           key_name ( 'T' , SHIFT_KEY ) ,
           "TPU-compile current buffer" ) ;

define_key ( " eve$trim_buffer ( current_buffer ) " ,
           key_name ( CTRL_T_KEY, SHIFT_KEY ) ,
           " TRIM trailing whitespace at line-ends from current buffer" ) ;

ENDPROCEDURE ;