# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1009979083 0
# Node ID 955a445b9717d00301f66c94ce45f8286a98c2bd
# Parent  4c2f1d0b13972cea6b8be3204dd904af49f6e3fb
(function-key-map): Don't bind shifted keypad numeric keys.

diff -r 4c2f1d0b1397 -r 955a445b9717 lisp/bindings.el
--- a/lisp/bindings.el	Wed Jan 02 13:27:22 2002 +0000
+++ b/lisp/bindings.el	Wed Jan 02 13:44:43 2002 +0000
@@ -830,14 +830,17 @@
 (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])
+;; Don't bind shifted keypad numeric keys, they reportedly
+;; interfere with the feature of some keyboards to produce
+;; numbers when NumLock is off.
+;(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])