From 9761cd3ae6e1ab91b3bbf35c6349c54a6bd8a06d Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 1 Aug 2001 15:27:36 +0000 Subject: [PATCH] Bind shifted and control-shifted kp-* keys to the corresponding non-kp keys. Suggested by Stephen Gildea . --- lisp/ChangeLog | 6 ++++++ lisp/bindings.el | 32 ++++++++++++++++++++++++++++++++ 2 files changed, 38 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eaefb77fd5b..675263e7128 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-08-01 Eli Zaretskii + + * bindings.el: Bind shifted and control-shifted kp-* keys to the + corresponding non-kp keys. Suggested by Stephen Gildea + . + 2001-08-01 Francesco Potorti` * uniquify.el (uniquify-rationalize-file-buffer-names): Add an diff --git a/lisp/bindings.el b/lisp/bindings.el index c6cbfe767e0..1073c0cc6c3 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -737,6 +737,38 @@ language you are using." (define-key function-key-map [backspace] [?\C-?]) (define-key function-key-map [delete] [?\C-?]) (define-key function-key-map [kp-delete] [?\C-?]) +(define-key function-key-map [S-kp-end] [S-end]) +(define-key function-key-map [S-kp-down] [S-down]) +(define-key function-key-map [S-kp-next] [S-next]) +(define-key function-key-map [S-kp-left] [S-left]) +(define-key function-key-map [S-kp-right] [S-right]) +(define-key function-key-map [S-kp-home] [S-home]) +(define-key function-key-map [S-kp-up] [S-up]) +(define-key function-key-map [S-kp-prior] [S-prior]) +(define-key function-key-map [C-S-kp-end] [C-S-end]) +(define-key function-key-map [C-S-kp-down] [C-S-down]) +(define-key function-key-map [C-S-kp-next] [C-S-next]) +(define-key function-key-map [C-S-kp-left] [C-S-left]) +(define-key function-key-map [C-S-kp-right] [C-S-right]) +(define-key function-key-map [C-S-kp-home] [C-S-home]) +(define-key function-key-map [C-S-kp-up] [C-S-up]) +(define-key function-key-map [C-S-kp-prior] [C-S-prior]) +(define-key function-key-map [S-kp-1] [S-end]) +(define-key function-key-map [S-kp-2] [S-down]) +(define-key function-key-map [S-kp-3] [S-next]) +(define-key function-key-map [S-kp-4] [S-left]) +(define-key function-key-map [S-kp-6] [S-right]) +(define-key function-key-map [S-kp-7] [S-home]) +(define-key function-key-map [S-kp-8] [S-up]) +(define-key function-key-map [S-kp-9] [S-prior]) +(define-key function-key-map [C-S-kp-1] [C-S-end]) +(define-key function-key-map [C-S-kp-2] [C-S-down]) +(define-key function-key-map [C-S-kp-3] [C-S-next]) +(define-key function-key-map [C-S-kp-4] [C-S-left]) +(define-key function-key-map [C-S-kp-6] [C-S-right]) +(define-key function-key-map [C-S-kp-7] [C-S-home]) +(define-key function-key-map [C-S-kp-8] [C-S-up]) +(define-key function-key-map [C-S-kp-9] [C-S-prior]) (define-key global-map [mouse-movement] 'ignore) -- 2.39.2