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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eaefb77fd5bf65195f5b6fd55711975af822398e..675263e7128fe6eb7f3e6510fbf0d05d7bf33208 100644 (file)
--- 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 c6cbfe767e0b3dad09129aeb4b2247879ce7a9c8..1073c0cc6c35e9a40dd8b6c8db916cd3a964de01 100644 (file)
--- 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)