From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 1 Aug 2001 15:27:36 +0000 (+0000)
Subject: Bind shifted and control-shifted kp-* keys to the
X-Git-Tag: emacs-pretest-21.0.105~323
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9761cd3ae6e1ab91b3bbf35c6349c54a6bd8a06d;p=emacs.git

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