Mercurial > hg > xemacs-beta

comparison lisp/term/AT386.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 461c7ba8286a
children 54cc21c15cbb
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
46 (define-key AT386-keypad-map "U" [next]) ;; PgDn 46 (define-key AT386-keypad-map "U" [next]) ;; PgDn
47 (define-key AT386-keypad-map "V" [prior]) ;; PgUp 47 (define-key AT386-keypad-map "V" [prior]) ;; PgUp
48 (define-key AT386-keypad-map "@" [insert]) ;; Ins key 48 (define-key AT386-keypad-map "@" [insert]) ;; Ins key
49 49
50 ;; These are not normally set up by either 50 ;; These are not normally set up by either
51 (define-key AT386-keypad-map "G" [kp-5]) ;; Unlabeled center key 51 (define-key AT386-keypad-map "G" [kp_5]) ;; Unlabeled center key
52 (define-key AT386-keypad-map "S" [kp-subtract]) 52 (define-key AT386-keypad-map "S" [kp_subtract])
53 (define-key AT386-keypad-map "T" [kp-add]) 53 (define-key AT386-keypad-map "T" [kp_add])
54 54
55 ;; Arrange for the ALT key to be equivalent to ESC 55 ;; Arrange for the ALT key to be equivalent to ESC
56 (define-key function-key-map "\eN" [?\e]) ; ALT map 56 (define-key function-key-map "\eN" [?\e]) ; ALT map
57 ) 57 )
58 58