Bind shifted and control-shifted kp-* keys to the

corresponding non-kp keys.  Suggested by Stephen Gildea <gildea@alum.mit.edu>.

2 files changed, 38 insertions, 0 deletions

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  <eliz@is.elta.co.il>
+
+        * bindings.el: Bind shifted and control-shifted kp-* keys to the
+        corresponding non-kp keys.  Suggested by Stephen Gildea
+        <gildea@alum.mit.edu>.
+
 2001-08-01  Francesco Potorti`  <pot@gnu.org>
 
         * 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)