*** empty log message ***

diff --git a/lisp/term/lk201.el b/lisp/term/lk201.el
index 855201190939974c2d971f8675ae66d473684bcf..c35e794f9b78286a018da744bdcef5b94bdda2be 100644 (file)
--- a/lisp/term/lk201.el
+++ b/lisp/term/lk201.el
@@ -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])