comparison lisp/bindings.el @ 42482:955a445b9717

(function-key-map): Don't bind shifted keypad numeric keys.
author Eli Zaretskii <eliz@gnu.org>
date Wed, 02 Jan 2002 13:44:43 +0000
parents ac2e15599f84
children 4e96369656bc
comparison
equal deleted inserted replaced
42481:4c2f1d0b1397 42482:955a445b9717
828 (define-key function-key-map [C-S-kp-left] [C-S-left]) 828 (define-key function-key-map [C-S-kp-left] [C-S-left])
829 (define-key function-key-map [C-S-kp-right] [C-S-right]) 829 (define-key function-key-map [C-S-kp-right] [C-S-right])
830 (define-key function-key-map [C-S-kp-home] [C-S-home]) 830 (define-key function-key-map [C-S-kp-home] [C-S-home])
831 (define-key function-key-map [C-S-kp-up] [C-S-up]) 831 (define-key function-key-map [C-S-kp-up] [C-S-up])
832 (define-key function-key-map [C-S-kp-prior] [C-S-prior]) 832 (define-key function-key-map [C-S-kp-prior] [C-S-prior])
833 (define-key function-key-map [S-kp-1] [S-end]) 833 ;; Don't bind shifted keypad numeric keys, they reportedly
834 (define-key function-key-map [S-kp-2] [S-down]) 834 ;; interfere with the feature of some keyboards to produce
835 (define-key function-key-map [S-kp-3] [S-next]) 835 ;; numbers when NumLock is off.
836 (define-key function-key-map [S-kp-4] [S-left]) 836 ;(define-key function-key-map [S-kp-1] [S-end])
837 (define-key function-key-map [S-kp-6] [S-right]) 837 ;(define-key function-key-map [S-kp-2] [S-down])
838 (define-key function-key-map [S-kp-7] [S-home]) 838 ;(define-key function-key-map [S-kp-3] [S-next])
839 (define-key function-key-map [S-kp-8] [S-up]) 839 ;(define-key function-key-map [S-kp-4] [S-left])
840 (define-key function-key-map [S-kp-9] [S-prior]) 840 ;(define-key function-key-map [S-kp-6] [S-right])
841 ;(define-key function-key-map [S-kp-7] [S-home])
842 ;(define-key function-key-map [S-kp-8] [S-up])
843 ;(define-key function-key-map [S-kp-9] [S-prior])
841 (define-key function-key-map [C-S-kp-1] [C-S-end]) 844 (define-key function-key-map [C-S-kp-1] [C-S-end])
842 (define-key function-key-map [C-S-kp-2] [C-S-down]) 845 (define-key function-key-map [C-S-kp-2] [C-S-down])
843 (define-key function-key-map [C-S-kp-3] [C-S-next]) 846 (define-key function-key-map [C-S-kp-3] [C-S-next])
844 (define-key function-key-map [C-S-kp-4] [C-S-left]) 847 (define-key function-key-map [C-S-kp-4] [C-S-left])
845 (define-key function-key-map [C-S-kp-6] [C-S-right]) 848 (define-key function-key-map [C-S-kp-6] [C-S-right])