# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 758556491 0
# Node ID a0e0f051e3d256c72b058aae3fa49385fa2812c3
# Parent  1449eaee85a9b13fedcf6204e764baf7de698387
entered into RCS

diff -r 1449eaee85a9 -r a0e0f051e3d2 lisp/term/lk201.el
--- a/lisp/term/lk201.el	Thu Jan 13 10:42:24 1994 +0000
+++ b/lisp/term/lk201.el	Fri Jan 14 14:08:11 1994 +0000
@@ -12,6 +12,11 @@
 (define-key function-key-map "\e[4~" [select])
 (define-key function-key-map "\e[5~" [prior])
 (define-key function-key-map "\e[6~" [next])
+(define-key function-key-map "\e[11~" [f1])
+(define-key function-key-map "\e[12~" [f2])
+(define-key function-key-map "\e[13~" [f3])
+(define-key function-key-map "\e[14~" [f4])
+(define-key function-key-map "\e[15~" [f5])
 (define-key function-key-map "\e[17~" [f6])
 (define-key function-key-map "\e[18~" [f7])
 (define-key function-key-map "\e[19~" [f8])
@@ -45,7 +50,7 @@
 (define-key function-key-map "\eOM" [kp-enter])
 (define-key function-key-map "\eOl" [kp-separator])
 (define-key function-key-map "\eOm" [kp-subtract])
-(define-key function-key-map "\eOn" [kp-period])
+(define-key function-key-map "\eOn" [kp-decimal])
 (define-key function-key-map "\eOp" [kp-0])
 (define-key function-key-map "\eOq" [kp-1])
 (define-key function-key-map "\eOr" [kp-2])