(terminal-init-xterm): Add bindings for keypad keys.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a19a427067418afadddbbc050372d83403525071..9703e98d4b181851a57dcd8805c24514e4bb8bb6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-08  Andreas Schwab  <schwab@suse.de>
+
+       * term/xterm.el (terminal-init-xterm): Add bindings for keypad
+       keys.
+
 2007-04-07  Glenn Morris  <rgm@gnu.org>
 
        * calendar/calendar.el (diary-font-lock-keywords, diary-live-p):

diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 1b912c3860ee4b6a1a70d467e82de1119f43fa68..2b4cf90ad257a400aff474e7fbbe30a1f5837592 100644 (file)
--- 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.