Mercurial > hg > xemacs-beta

comparison lisp/term/tvi970.el @ 52:461c7ba8286a r19-16-pre1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16-pre1
author cvs
date Mon, 13 Aug 2007 08:57:19 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
51:69ce12f60f55 52:461c7ba8286a
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