[Emacs-diffs] Changes to emacs/lisp/bindings.el

[Eli Zaretskii]

Index: emacs/lisp/bindings.el
diff -c emacs/lisp/bindings.el:1.94 emacs/lisp/bindings.el:1.95
*** emacs/lisp/bindings.el:1.94 Wed Dec  5 10:36:44 2001
--- emacs/lisp/bindings.el      Wed Jan  2 08:44:43 2002
***************
*** 830,843 ****
  (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])
--- 830,846 ----
  (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])
! ;; 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])