SET(POST_KEY_PROCEDURE)

 Specifies a procedure to be executed after execution of the program bound
 to a defined key.

 Syntax

    SET (POST_KEY_PROCEDURE, keymap_list_name,
         [program | buffer | range | string | learn])

 Parameters

    keymap_list_name     An expression evaluating to a string specifying
                         the keymap list for which you want the procedure
                         to be called.

    program              The program to be compiled, if necessary, and
                         executed when a defined key is pressed.  If you do
                         not specify this parameter, the previously defined
                         program is deleted.

    buffer               The buffer containing VAXTPU statements to be
                         compiled, if necessary, and executed when a
                         defined key is pressed.  If you do not specify
                         this parameter, the previously defined program is
                         deleted.

    range                The range containing VAXTPU statements to be
                         compiled, if necessary, and executed when a
                         defined key is pressed.  If you do not specify
                         this parameter, the previously defined program is
                         deleted.

    string               The string containing VAXTPU statements to be
                         compiled, if necessary, and executed when a
                         defined key is pressed.  If you do not specify
                         this parameter, the previously defined program is
                         deleted.

    learn                The learn sequence to be replayed when a defined
                         key is pressed.  If you do not specify this
                         parameter, the previously defined program is
                         deleted.

 Example

 The following code displays a message after the code bound to a key is
 executed:

    SET (POST_KEY_PROCEDURE, "tpu$key_map_list",
        'MESSAGE ("Key " + GET_INFO (LAST_KEY, "name") + " Executed")');