Mercurial > emacs
changeset 77048:a15b726a4752
(terminal-init-xterm): Add bindings for keypad keys.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 08 Apr 2007 10:42:16 +0000 |
| parents | e764b3b9820d |
| children | 84189e623113 |
| files | lisp/term/xterm.el |
| diffstat | 1 files changed, 17 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/xterm.el Sun Apr 08 08:59:32 2007 +0000 +++ b/lisp/term/xterm.el Sun Apr 08 10:42:16 2007 +0000 @@ -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.