# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743291064 0
# Node ID 9d2ef5f2ff8389c6dd1adb6c59de794e008313c0
# Parent  23978f12007b803b770c817eac90ccb2136e4bf7
*** empty log message ***

diff -r 23978f12007b -r 9d2ef5f2ff83 lisp/term/lk201.el
--- a/lisp/term/lk201.el	Wed Jul 21 21:31:31 1993 +0000
+++ b/lisp/term/lk201.el	Wed Jul 21 21:44:24 1993 +0000
@@ -34,10 +34,13 @@
 ;; (define-key function-key-map "\eOB" [down])
 ;; (define-key function-key-map "\eOC" [right])
 ;; (define-key function-key-map "\eOD" [left])
-;; (define-key function-key-map "\eOP" [kp-f1])
-;; (define-key function-key-map "\eOQ" [kp-f2])
-;; (define-key function-key-map "\eOR" [kp-f3])
-;; (define-key function-key-map "\eOS" [kp-f4])
+
+;; Termcap or terminfo should set these, but doesn't properly.
+;; Termcap sets these to k1-k4, which get mapped to f1-f4 in term.c
+(define-key function-key-map "\eOP" [kp-f1])
+(define-key function-key-map "\eOQ" [kp-f2])
+(define-key function-key-map "\eOR" [kp-f3])
+(define-key function-key-map "\eOS" [kp-f4])
 
 (define-key function-key-map "\eOM" [kp-enter])
 (define-key function-key-map "\eOl" [kp-separator])