From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Jul 1993 21:44:24 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-19.34~11645
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b7802ed144d6b0e17c369d07f4be893830c7a5b;p=emacs.git

*** empty log message ***
---

diff --git a/lisp/term/lk201.el b/lisp/term/lk201.el
index 85520119093..c35e794f9b7 100644
--- 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])