From: Andreas Schwab <schwab@suse.de>
Date: Sun, 8 Apr 2007 10:42:26 +0000 (+0000)
Subject: (terminal-init-xterm): Add bindings for keypad keys.
X-Git-Tag: emacs-pretest-22.0.98~208
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28863a9904950f71994b43a05a5a3e8e0290c58c;p=emacs.git

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

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  <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 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.