From ad9549a93463c742a286b684a8d1b160a6874632 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 14 Jan 1994 14:08:11 +0000 Subject: entered into RCS --- lisp/term/lk201.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lisp/term/lk201.el') diff --git a/lisp/term/lk201.el b/lisp/term/lk201.el index c35e794f9b7..024a8e1c317 100644 --- a/lisp/term/lk201.el +++ b/lisp/term/lk201.el @@ -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]) -- cgit v1.2.1