/[emacs]/emacs/lisp/term/xterm.el
ViewVC logotype

Diff of /emacs/lisp/term/xterm.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by dann, Wed Apr 13 02:25:43 2005 UTC revision 1.14 by dann, Tue Apr 26 05:56:20 2005 UTC
# Line 51  Line 51 
51    (define-key map "\e[24~" [f12])    (define-key map "\e[24~" [f12])
52    (define-key map "\e[29~" [print])    (define-key map "\e[29~" [print])
53    
54    (define-key map "\e[11;2~" [S-f1])    (define-key map "\eOP" [f1])
55    (define-key map "\e[12;2~" [S-f2])    (define-key map "\eOQ" [f2])
56    (define-key map "\e[13;2~" [S-f3])    (define-key map "\eOR" [f3])
57    (define-key map "\e[14;2~" [S-f4])    (define-key map "\eOS" [f4])
58    
59      (define-key map "\eO2P" [S-f1])
60      (define-key map "\eO2Q" [S-f2])
61      (define-key map "\eO2R" [S-f3])
62      (define-key map "\eO2S" [S-f4])
63    (define-key map "\e[15;2~" [S-f5])    (define-key map "\e[15;2~" [S-f5])
64    (define-key map "\e[17;2~" [S-f6])    (define-key map "\e[17;2~" [S-f6])
65    (define-key map "\e[18;2~" [S-f7])    (define-key map "\e[18;2~" [S-f7])
# Line 64  Line 69 
69    (define-key map "\e[23;2~" [S-f11])    (define-key map "\e[23;2~" [S-f11])
70    (define-key map "\e[24;2~" [S-f12])    (define-key map "\e[24;2~" [S-f12])
71    
72    (define-key map "\e[11;5~" [C-f1])    (define-key map "\eO5P" [C-f1])
73    (define-key map "\e[12;5~" [C-f2])    (define-key map "\eO5Q" [C-f2])
74    (define-key map "\e[13;5~" [C-f3])    (define-key map "\eO5R" [C-f3])
75    (define-key map "\e[14;5~" [C-f4])    (define-key map "\eO5S" [C-f4])
76    (define-key map "\e[15;5~" [C-f5])    (define-key map "\e[15;5~" [C-f5])
77    (define-key map "\e[17;5~" [C-f6])    (define-key map "\e[17;5~" [C-f6])
78    (define-key map "\e[18;5~" [C-f7])    (define-key map "\e[18;5~" [C-f7])
# Line 77  Line 82 
82    (define-key map "\e[23;5~" [C-f11])    (define-key map "\e[23;5~" [C-f11])
83    (define-key map "\e[24;5~" [C-f12])    (define-key map "\e[24;5~" [C-f12])
84    
85    (define-key map "\e[11;6~" [C-S-f1])    (define-key map "\eO6P" [C-S-f1])
86    (define-key map "\e[12;6~" [C-S-f2])    (define-key map "\eO6Q" [C-S-f2])
87    (define-key map "\e[13;6~" [C-S-f3])    (define-key map "\eO6R" [C-S-f3])
88    (define-key map "\e[14;6~" [C-S-f4])    (define-key map "\eO6S" [C-S-f4])
89    (define-key map "\e[15;6~" [C-S-f5])    (define-key map "\e[15;6~" [C-S-f5])
90    (define-key map "\e[17;6~" [C-S-f6])    (define-key map "\e[17;6~" [C-S-f6])
91    (define-key map "\e[18;6~" [C-S-f7])    (define-key map "\e[18;6~" [C-S-f7])
# Line 90  Line 95 
95    (define-key map "\e[23;6~" [C-S-f11])    (define-key map "\e[23;6~" [C-S-f11])
96    (define-key map "\e[24;6~" [C-S-f12])    (define-key map "\e[24;6~" [C-S-f12])
97    
98    (define-key map "\e[11;3~" [A-f1])    (define-key map "\eO3P" [A-f1])
99    (define-key map "\e[12;3~" [A-f2])    (define-key map "\eO3Q" [A-f2])
100    (define-key map "\e[13;3~" [A-f3])    (define-key map "\eO3R" [A-f3])
101    (define-key map "\e[14;3~" [A-f4])    (define-key map "\eO3S" [A-f4])
102    (define-key map "\e[15;3~" [A-f5])    (define-key map "\e[15;3~" [A-f5])
103    (define-key map "\e[17;3~" [A-f6])    (define-key map "\e[17;3~" [A-f6])
104    (define-key map "\e[18;3~" [A-f7])    (define-key map "\e[18;3~" [A-f7])
# Line 178  Line 183 
183    (set-keymap-parent map (keymap-parent function-key-map))    (set-keymap-parent map (keymap-parent function-key-map))
184    (set-keymap-parent function-key-map map))    (set-keymap-parent function-key-map map))
185    
186    ;;; The terminal intialization C code file might have initialized
187    ;;; function keys F13->F60 from the termcap/terminfo information.  On
188    ;;; a PC-style keyboard these keys correspond to
189    ;;; MODIFIER-FUNCTION_KEY, where modifier is S-, C, A-, C-S-.  The
190    ;;; code here subsitutes the corresponding defintions in
191    ;;; function-key-map. This substitution is needed because if a key
192    ;;; definition if found in function-key-map, there are no further
193    ;;; lookups in other keymaps.
194    (substitute-key-definition [f13] [S-f1] function-key-map)
195    (substitute-key-definition [f14] [S-f2] function-key-map)
196    (substitute-key-definition [f15] [S-f3] function-key-map)
197    (substitute-key-definition [f16] [S-f4] function-key-map)
198    (substitute-key-definition [f17] [S-f5] function-key-map)
199    (substitute-key-definition [f18] [S-f6] function-key-map)
200    (substitute-key-definition [f19] [S-f7] function-key-map)
201    (substitute-key-definition [f20] [S-f8] function-key-map)
202    (substitute-key-definition [f21] [S-f9] function-key-map)
203    (substitute-key-definition [f22] [S-f10] function-key-map)
204    (substitute-key-definition [f23] [S-f11] function-key-map)
205    (substitute-key-definition [f24] [S-f12] function-key-map)
206    
207    (substitute-key-definition [f25] [C-f1] function-key-map)
208    (substitute-key-definition [f26] [C-f2] function-key-map)
209    (substitute-key-definition [f27] [C-f3] function-key-map)
210    (substitute-key-definition [f28] [C-f4] function-key-map)
211    (substitute-key-definition [f29] [C-f5] function-key-map)
212    (substitute-key-definition [f30] [C-f6] function-key-map)
213    (substitute-key-definition [f31] [C-f7] function-key-map)
214    (substitute-key-definition [f32] [C-f8] function-key-map)
215    (substitute-key-definition [f33] [C-f9] function-key-map)
216    (substitute-key-definition [f34] [C-f10] function-key-map)
217    (substitute-key-definition [f35] [C-f11] function-key-map)
218    (substitute-key-definition [f36] [C-f12] function-key-map)
219    
220    (substitute-key-definition [f37] [C-S-f1] function-key-map)
221    (substitute-key-definition [f38] [C-S-f2] function-key-map)
222    (substitute-key-definition [f39] [C-S-f3] function-key-map)
223    (substitute-key-definition [f40] [C-S-f4] function-key-map)
224    (substitute-key-definition [f41] [C-S-f5] function-key-map)
225    (substitute-key-definition [f42] [C-S-f6] function-key-map)
226    (substitute-key-definition [f43] [C-S-f7] function-key-map)
227    (substitute-key-definition [f44] [C-S-f8] function-key-map)
228    (substitute-key-definition [f45] [C-S-f9] function-key-map)
229    (substitute-key-definition [f46] [C-S-f10] function-key-map)
230    (substitute-key-definition [f47] [C-S-f11] function-key-map)
231    (substitute-key-definition [f48] [C-S-f12] function-key-map)
232    
233    (substitute-key-definition [f49] [A-f1] function-key-map)
234    (substitute-key-definition [f50] [A-f2] function-key-map)
235    (substitute-key-definition [f51] [A-f3] function-key-map)
236    (substitute-key-definition [f52] [A-f4] function-key-map)
237    (substitute-key-definition [f53] [A-f5] function-key-map)
238    (substitute-key-definition [f54] [A-f6] function-key-map)
239    (substitute-key-definition [f55] [A-f7] function-key-map)
240    (substitute-key-definition [f56] [A-f8] function-key-map)
241    (substitute-key-definition [f57] [A-f9] function-key-map)
242    (substitute-key-definition [f58] [A-f10] function-key-map)
243    (substitute-key-definition [f59] [A-f11] function-key-map)
244    (substitute-key-definition [f60] [A-f12] function-key-map)
245    
246  ;; Set up colors, for those versions of xterm that support it.  ;; Set up colors, for those versions of xterm that support it.
247  (defvar xterm-standard-colors  (defvar xterm-standard-colors
248    ;; The names in the comments taken from XTerm-col.ad in the xterm    ;; The names in the comments taken from XTerm-col.ad in the xterm

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26