From 28863a9904950f71994b43a05a5a3e8e0290c58c Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 8 Apr 2007 10:42:26 +0000 Subject: [PATCH] (terminal-init-xterm): Add bindings for keypad keys. --- lisp/ChangeLog | 5 +++++ lisp/term/xterm.el | 18 +++++++++++++++++- 2 files changed, 22 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a19a4270674..9703e98d4b1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-04-08 Andreas Schwab + + * term/xterm.el (terminal-init-xterm): Add bindings for keypad + keys. + 2007-04-07 Glenn Morris * calendar/calendar.el (diary-font-lock-keywords, diary-live-p): diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 1b912c3860e..2b4cf90ad25 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -231,7 +231,23 @@ (define-key map "\e[4~" [select]) (define-key map "\e[29~" [print]) - + + (define-key map "\eOj" [kp-multiply]) + (define-key map "\eOk" [kp-add]) + (define-key map "\eOl" [kp-separator]) + (define-key map "\eOm" [kp-subtract]) + (define-key map "\eOo" [kp-divide]) + (define-key map "\eOp" [kp-0]) + (define-key map "\eOq" [kp-1]) + (define-key map "\eOr" [kp-2]) + (define-key map "\eOs" [kp-3]) + (define-key map "\eOt" [kp-4]) + (define-key map "\eOu" [kp-5]) + (define-key map "\eOv" [kp-6]) + (define-key map "\eOw" [kp-7]) + (define-key map "\eOx" [kp-8]) + (define-key map "\eOy" [kp-9]) + ;; These keys are available in xterm starting from version 216 ;; if the modifyOtherKeys resource is set to 1. -- 2.39.5