changeset 4206:9d2ef5f2ff83

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Jul 1993 21:44:24 +0000
parents 23978f12007b
children 8d3476fde0f3
files lisp/term/lk201.el
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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])