1 |
;;; xterm.el --- define function key sequences and standard colors for xterm |
;;; xterm.el --- define function key sequences and standard colors for xterm |
2 |
|
|
3 |
;; Copyright (C) 1995, 2002, 2005 Free Software Foundation, Inc. |
;; Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: FSF |
;; Author: FSF |
6 |
;; Keywords: terminals |
;; Keywords: terminals |
33 |
;; better in that case to use rxvt's initializion function. |
;; better in that case to use rxvt's initializion function. |
34 |
(if (and (getenv "COLORTERM") |
(if (and (getenv "COLORTERM") |
35 |
(string-match "\\`rxvt" (getenv "COLORTERM"))) |
(string-match "\\`rxvt" (getenv "COLORTERM"))) |
36 |
(progn |
(progn |
37 |
(load "term/rxvt") |
(load "term/rxvt") |
38 |
(terminal-init-rxvt)) |
(terminal-init-rxvt)) |
39 |
|
|
45 |
;; function-key-map. This substitution is needed because if a key |
;; function-key-map. This substitution is needed because if a key |
46 |
;; definition if found in function-key-map, there are no further |
;; definition if found in function-key-map, there are no further |
47 |
;; lookups in other keymaps. |
;; lookups in other keymaps. |
48 |
(substitute-key-definition [f13] [S-f1] function-key-map) |
(substitute-key-definition [f13] [S-f1] function-key-map) |
49 |
(substitute-key-definition [f14] [S-f2] function-key-map) |
(substitute-key-definition [f14] [S-f2] function-key-map) |
50 |
(substitute-key-definition [f15] [S-f3] function-key-map) |
(substitute-key-definition [f15] [S-f3] function-key-map) |
51 |
(substitute-key-definition [f16] [S-f4] function-key-map) |
(substitute-key-definition [f16] [S-f4] function-key-map) |
58 |
(substitute-key-definition [f23] [S-f11] function-key-map) |
(substitute-key-definition [f23] [S-f11] function-key-map) |
59 |
(substitute-key-definition [f24] [S-f12] function-key-map) |
(substitute-key-definition [f24] [S-f12] function-key-map) |
60 |
|
|
61 |
(substitute-key-definition [f25] [C-f1] function-key-map) |
(substitute-key-definition [f25] [C-f1] function-key-map) |
62 |
(substitute-key-definition [f26] [C-f2] function-key-map) |
(substitute-key-definition [f26] [C-f2] function-key-map) |
63 |
(substitute-key-definition [f27] [C-f3] function-key-map) |
(substitute-key-definition [f27] [C-f3] function-key-map) |
64 |
(substitute-key-definition [f28] [C-f4] function-key-map) |
(substitute-key-definition [f28] [C-f4] function-key-map) |
71 |
(substitute-key-definition [f35] [C-f11] function-key-map) |
(substitute-key-definition [f35] [C-f11] function-key-map) |
72 |
(substitute-key-definition [f36] [C-f12] function-key-map) |
(substitute-key-definition [f36] [C-f12] function-key-map) |
73 |
|
|
74 |
(substitute-key-definition [f37] [C-S-f1] function-key-map) |
(substitute-key-definition [f37] [C-S-f1] function-key-map) |
75 |
(substitute-key-definition [f38] [C-S-f2] function-key-map) |
(substitute-key-definition [f38] [C-S-f2] function-key-map) |
76 |
(substitute-key-definition [f39] [C-S-f3] function-key-map) |
(substitute-key-definition [f39] [C-S-f3] function-key-map) |
77 |
(substitute-key-definition [f40] [C-S-f4] function-key-map) |
(substitute-key-definition [f40] [C-S-f4] function-key-map) |
84 |
(substitute-key-definition [f47] [C-S-f11] function-key-map) |
(substitute-key-definition [f47] [C-S-f11] function-key-map) |
85 |
(substitute-key-definition [f48] [C-S-f12] function-key-map) |
(substitute-key-definition [f48] [C-S-f12] function-key-map) |
86 |
|
|
87 |
(substitute-key-definition [f49] [A-f1] function-key-map) |
(substitute-key-definition [f49] [A-f1] function-key-map) |
88 |
(substitute-key-definition [f50] [A-f2] function-key-map) |
(substitute-key-definition [f50] [A-f2] function-key-map) |
89 |
(substitute-key-definition [f51] [A-f3] function-key-map) |
(substitute-key-definition [f51] [A-f3] function-key-map) |
90 |
(substitute-key-definition [f52] [A-f4] function-key-map) |
(substitute-key-definition [f52] [A-f4] function-key-map) |