Mercurial > hg > xemacs-beta

comparison lisp/term/tvi970.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
36 (mapcar (function (lambda (key-binding) 36 (mapcar (function (lambda (key-binding)
37 (define-key function-key-map 37 (define-key function-key-map
38 (car key-binding) (nth 1 key-binding)))) 38 (car key-binding) (nth 1 key-binding))))
39 '( 39 '(
40 ;; These are set up by termcap or terminfo 40 ;; These are set up by termcap or terminfo
41 ;; ("\eOP" [kp-f1]) 41 ;; ("\eOP" [kp_f1])
42 ;; ("\eOQ" [kp-f2]) 42 ;; ("\eOQ" [kp_f2])
43 ;; ("\eOR" [kp-f3]) 43 ;; ("\eOR" [kp_f3])
44 ;; ("\eOS" [kp-f4]) 44 ;; ("\eOS" [kp_f4])
45 45
46 ;; These might br set by terminfo 46 ;; These might br set by terminfo
47 ("\e[H" [home]) 47 ("\e[H" [home])
48 ("\e[Z" [backtab]) 48 ("\e[Z" [backtab])
49 ("\e[i" [print]) 49 ("\e[i" [print])
51 ("\e[L" [insertline]) 51 ("\e[L" [insertline])
52 ("\e[M" [deleteline]) 52 ("\e[M" [deleteline])
53 ("\e[U" [next]) ;; actually the `page' key 53 ("\e[U" [next]) ;; actually the `page' key
54 54
55 ;; These won't be set up by either 55 ;; These won't be set up by either
56 ("\eOm" [kp-subtract]) 56 ("\eOm" [kp_subtract])
57 ("\eOl" [kp-separator]) 57 ("\eOl" [kp_separator])
58 ("\eOn" [kp-decimal]) 58 ("\eOn" [kp_decimal])
59 ("\eOM" [kp-enter]) 59 ("\eOM" [kp_enter])
60 60
61 ;; These won't be set up by either either 61 ;; These won't be set up by either either
62 ("\e[K" [key_eol]) ;; Not an X keysym 62 ("\e[K" [key_eol]) ;; Not an X keysym
63 ("\e[J" [key_eos]) ;; Not an X keysym 63 ("\e[J" [key_eos]) ;; Not an X keysym
64 ("\e[2J" [key_clear]) ;; Not an X keysym 64 ("\e[2J" [key_clear]) ;; Not an X keysym
83 ;; The numeric keypad keys. 83 ;; The numeric keypad keys.
84 (let ((i 0)) 84 (let ((i 0))
85 (while (< i 10) 85 (while (< i 10)
86 (define-key function-key-map 86 (define-key function-key-map
87 (format "\eO%c" (+ i ?p)) 87 (format "\eO%c" (+ i ?p))
88 (vector (intern (format "kp-%d" i)))) 88 (vector (intern (format "kp_%d" i))))
89 (setq i (1+ i)))) 89 (setq i (1+ i))))
90 ;; The numbered function keys. 90 ;; The numbered function keys.
91 (let ((i 0)) 91 (let ((i 0))
92 (while (< i 16) 92 (while (< i 16)
93 (define-key function-key-map 93 (define-key function-key-map