Mercurial > emacs

comparison lisp/term/xterm.el @ 83561:dc002877ce12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-674 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-675 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-676 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-677 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-678 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-679 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-680 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-681 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-682 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-683 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-684 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-685 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-686 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-687 Release ERC 5.2. * emacs@sv.gnu.org/emacs--devo--0--patch-688 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-689 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-690 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-691 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-692 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-693 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-694 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-695 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-696 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-697 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-698 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-699 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-700 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-701 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-209 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-210 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-211 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-212 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-213 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-214 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-215 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-601
author Karoly Lorentey <karoly@lorentey.hu>
date Sun, 22 Apr 2007 12:42:47 +0000
parents b8d9a391daf3 5e0d61b2e907
children 2716535391b7
comparison
equal deleted inserted replaced
83560:738ce3540ffb 83561:dc002877ce12
161 (define-key xterm-function-map "\e[6;3~" [A-next]) 161 (define-key xterm-function-map "\e[6;3~" [A-next])
162 162
163 (define-key xterm-function-map "\e[4~" [select]) 163 (define-key xterm-function-map "\e[4~" [select])
164 (define-key xterm-function-map "\e[29~" [print]) 164 (define-key xterm-function-map "\e[29~" [print])
165 165
166 (define-key xterm-function-map "\eOj" [kp-multiply])
167 (define-key xterm-function-map "\eOk" [kp-add])
168 (define-key xterm-function-map "\eOl" [kp-separator])
169 (define-key xterm-function-map "\eOm" [kp-subtract])
170 (define-key xterm-function-map "\eOo" [kp-divide])
171 (define-key xterm-function-map "\eOp" [kp-0])
172 (define-key xterm-function-map "\eOq" [kp-1])
173 (define-key xterm-function-map "\eOr" [kp-2])
174 (define-key xterm-function-map "\eOs" [kp-3])
175 (define-key xterm-function-map "\eOt" [kp-4])
176 (define-key xterm-function-map "\eOu" [kp-5])
177 (define-key xterm-function-map "\eOv" [kp-6])
178 (define-key xterm-function-map "\eOw" [kp-7])
179 (define-key xterm-function-map "\eOx" [kp-8])
180 (define-key xterm-function-map "\eOy" [kp-9])
181
166 ;; These keys are available in xterm starting from version 216 182 ;; These keys are available in xterm starting from version 216
167 ;; if the modifyOtherKeys resource is set to 1. 183 ;; if the modifyOtherKeys resource is set to 1.
168 184
169 (define-key xterm-function-map "\e[27;5;9~" [C-tab]) 185 (define-key xterm-function-map "\e[27;5;9~" [C-tab])
170 (define-key xterm-function-map "\e[27;5;13~" [C-return]) 186 (define-key xterm-function-map "\e[27;5;13~" [C-return])
175 (define-key xterm-function-map "\e[27;5;47~" [?\C-/]) 191 (define-key xterm-function-map "\e[27;5;47~" [?\C-/])
176 (define-key xterm-function-map "\e[27;5;48~" [?\C-0]) 192 (define-key xterm-function-map "\e[27;5;48~" [?\C-0])
177 (define-key xterm-function-map "\e[27;5;49~" [?\C-1]) 193 (define-key xterm-function-map "\e[27;5;49~" [?\C-1])
178 ;; Not all C-DIGIT keys have a distinct binding. 194 ;; Not all C-DIGIT keys have a distinct binding.
179 (define-key xterm-function-map "\e[27;5;57~" [?\C-9]) 195 (define-key xterm-function-map "\e[27;5;57~" [?\C-9])
180 (define-key xterm-function-map "\e[27;5;59~" [(C-\;)]) 196 (define-key xterm-function-map "\e[27;5;59~" [?\C-\;])
181 (define-key xterm-function-map "\e[27;5;61~" [?\C-=]) 197 (define-key xterm-function-map "\e[27;5;61~" [?\C-=])
182 (define-key xterm-function-map "\e[27;5;92~" [?\C-\\]) 198 (define-key xterm-function-map "\e[27;5;92~" [?\C-\\])
183 199
184 (define-key xterm-function-map "\e[27;6;33~" [?\C-!]) 200 (define-key xterm-function-map "\e[27;6;33~" [?\C-!])
185 (define-key xterm-function-map "\e[27;6;34~" [?\C-\"]) 201 (define-key xterm-function-map "\e[27;6;34~" [?\C-\"])
186 (define-key xterm-function-map "\e[27;6;35~" [?\C-#]) 202 (define-key xterm-function-map "\e[27;6;35~" [?\C-#])
187 (define-key xterm-function-map "\e[27;6;36~" [?\C-$]) 203 (define-key xterm-function-map "\e[27;6;36~" [?\C-$])
188 (define-key xterm-function-map "\e[27;6;37~" [?\C-%]) 204 (define-key xterm-function-map "\e[27;6;37~" [?\C-%])
189 (define-key xterm-function-map "\e[27;6;38~" [(C-&)]) 205 (define-key xterm-function-map "\e[27;6;38~" [?\C-&])
190 (define-key xterm-function-map "\e[27;6;40~" [?\C-(]) 206 (define-key xterm-function-map "\e[27;6;40~" [?\C-(])
191 (define-key xterm-function-map "\e[27;6;41~" [?\C-)]) 207 (define-key xterm-function-map "\e[27;6;41~" [?\C-)])
192 (define-key xterm-function-map "\e[27;6;42~" [?\C-*]) 208 (define-key xterm-function-map "\e[27;6;42~" [?\C-*])
193 (define-key xterm-function-map "\e[27;6;43~" [?\C-+]) 209 (define-key xterm-function-map "\e[27;6;43~" [?\C-+])
194 (define-key xterm-function-map "\e[27;6;58~" [?\C-:]) 210 (define-key xterm-function-map "\e[27;6;58~" [?\C-:])
195 (define-key xterm-function-map "\e[27;6;60~" [?\C-<]) 211 (define-key xterm-function-map "\e[27;6;60~" [?\C-<])
196 (define-key xterm-function-map "\e[27;6;62~" [?\C->]) 212 (define-key xterm-function-map "\e[27;6;62~" [?\C->])
197 (define-key xterm-function-map "\e[27;6;63~" [(C-\?)]) 213 (define-key xterm-function-map "\e[27;6;63~" [(control ??)])
198 214
199 ;; These are the strings emitted for various C-M- combinations 215 ;; These are the strings emitted for various C-M- combinations
200 ;; for keyboards that the Meta and Alt modifiers are on the same 216 ;; for keyboards that the Meta and Alt modifiers are on the same
201 ;; key (usually labeled "Alt"). 217 ;; key (usually labeled "Alt").
202 (define-key xterm-function-map "\e[27;13;9~" [(C-M-tab)]) 218 (define-key xterm-function-map "\e[27;13;9~" [C-M-tab])
203 (define-key xterm-function-map "\e[27;13;13~" [(C-M-return)]) 219 (define-key xterm-function-map "\e[27;13;13~" [C-M-return])
204 220
205 (define-key xterm-function-map "\e[27;13;39~" [?\C-\M-\']) 221 (define-key xterm-function-map "\e[27;13;39~" [?\C-\M-\'])
206 (define-key xterm-function-map "\e[27;13;44~" [?\C-\M-,]) 222 (define-key xterm-function-map "\e[27;13;44~" [?\C-\M-,])
207 (define-key xterm-function-map "\e[27;13;45~" [?\C-\M--]) 223 (define-key xterm-function-map "\e[27;13;45~" [?\C-\M--])
208 (define-key xterm-function-map "\e[27;13;46~" [?\C-\M-.]) 224 (define-key xterm-function-map "\e[27;13;46~" [?\C-\M-.])
224 (define-key xterm-function-map "\e[27;14;33~" [?\C-\M-!]) 240 (define-key xterm-function-map "\e[27;14;33~" [?\C-\M-!])
225 (define-key xterm-function-map "\e[27;14;34~" [?\C-\M-\"]) 241 (define-key xterm-function-map "\e[27;14;34~" [?\C-\M-\"])
226 (define-key xterm-function-map "\e[27;14;35~" [?\C-\M-#]) 242 (define-key xterm-function-map "\e[27;14;35~" [?\C-\M-#])
227 (define-key xterm-function-map "\e[27;14;36~" [?\C-\M-$]) 243 (define-key xterm-function-map "\e[27;14;36~" [?\C-\M-$])
228 (define-key xterm-function-map "\e[27;14;37~" [?\C-\M-%]) 244 (define-key xterm-function-map "\e[27;14;37~" [?\C-\M-%])
229 (define-key xterm-function-map "\e[27;14;38~" [(C-M-&)]) 245 (define-key xterm-function-map "\e[27;14;38~" [?\C-\M-&])
230 (define-key xterm-function-map "\e[27;14;40~" [?\C-\M-(]) 246 (define-key xterm-function-map "\e[27;14;40~" [?\C-\M-(])
231 (define-key xterm-function-map "\e[27;14;41~" [?\C-\M-)]) 247 (define-key xterm-function-map "\e[27;14;41~" [?\C-\M-)])
232 (define-key xterm-function-map "\e[27;14;42~" [?\C-\M-*]) 248 (define-key xterm-function-map "\e[27;14;42~" [?\C-\M-*])
233 (define-key xterm-function-map "\e[27;14;43~" [?\C-\M-+]) 249 (define-key xterm-function-map "\e[27;14;43~" [?\C-\M-+])
234 (define-key xterm-function-map "\e[27;14;58~" [?\C-\M-:]) 250 (define-key xterm-function-map "\e[27;14;58~" [?\C-\M-:])
235 (define-key xterm-function-map "\e[27;14;60~" [?\C-\M-<]) 251 (define-key xterm-function-map "\e[27;14;60~" [?\C-\M-<])
236 (define-key xterm-function-map "\e[27;14;62~" [?\C-\M->]) 252 (define-key xterm-function-map "\e[27;14;62~" [?\C-\M->])
237 (define-key xterm-function-map "\e[27;14;63~" [(C-M-\?)]) 253 (define-key xterm-function-map "\e[27;14;63~" [(control meta ??)])
238 254
239 (define-key xterm-function-map "\e[27;7;9~" [(C-M-tab)]) 255 (define-key xterm-function-map "\e[27;7;9~" [C-M-tab])
240 (define-key xterm-function-map "\e[27;7;13~" [(C-M-return)]) 256 (define-key xterm-function-map "\e[27;7;13~" [C-M-return])
241 257
258 (define-key xterm-function-map "\e[27;7;32~" [?\C-\M-\s])
242 (define-key xterm-function-map "\e[27;7;39~" [?\C-\M-\']) 259 (define-key xterm-function-map "\e[27;7;39~" [?\C-\M-\'])
243 (define-key xterm-function-map "\e[27;7;44~" [?\C-\M-,]) 260 (define-key xterm-function-map "\e[27;7;44~" [?\C-\M-,])
244 (define-key xterm-function-map "\e[27;7;45~" [?\C-\M--]) 261 (define-key xterm-function-map "\e[27;7;45~" [?\C-\M--])
245 (define-key xterm-function-map "\e[27;7;46~" [?\C-\M-.]) 262 (define-key xterm-function-map "\e[27;7;46~" [?\C-\M-.])
246 (define-key xterm-function-map "\e[27;7;47~" [?\C-\M-/]) 263 (define-key xterm-function-map "\e[27;7;47~" [?\C-\M-/])
261 (define-key xterm-function-map "\e[27;8;33~" [?\C-\M-!]) 278 (define-key xterm-function-map "\e[27;8;33~" [?\C-\M-!])
262 (define-key xterm-function-map "\e[27;8;34~" [?\C-\M-\"]) 279 (define-key xterm-function-map "\e[27;8;34~" [?\C-\M-\"])
263 (define-key xterm-function-map "\e[27;8;35~" [?\C-\M-#]) 280 (define-key xterm-function-map "\e[27;8;35~" [?\C-\M-#])
264 (define-key xterm-function-map "\e[27;8;36~" [?\C-\M-$]) 281 (define-key xterm-function-map "\e[27;8;36~" [?\C-\M-$])
265 (define-key xterm-function-map "\e[27;8;37~" [?\C-\M-%]) 282 (define-key xterm-function-map "\e[27;8;37~" [?\C-\M-%])
266 (define-key xterm-function-map "\e[27;8;38~" [(C-M-&)]) 283 (define-key xterm-function-map "\e[27;8;38~" [?\C-\M-&])
267 (define-key xterm-function-map "\e[27;8;40~" [?\C-\M-(]) 284 (define-key xterm-function-map "\e[27;8;40~" [?\C-\M-(])
268 (define-key xterm-function-map "\e[27;8;41~" [?\C-\M-)]) 285 (define-key xterm-function-map "\e[27;8;41~" [?\C-\M-)])
269 (define-key xterm-function-map "\e[27;8;42~" [?\C-\M-*]) 286 (define-key xterm-function-map "\e[27;8;42~" [?\C-\M-*])
270 (define-key xterm-function-map "\e[27;8;43~" [?\C-\M-+]) 287 (define-key xterm-function-map "\e[27;8;43~" [?\C-\M-+])
271 (define-key xterm-function-map "\e[27;8;58~" [?\C-\M-:]) 288 (define-key xterm-function-map "\e[27;8;58~" [?\C-\M-:])
272 (define-key xterm-function-map "\e[27;8;60~" [?\C-\M-<]) 289 (define-key xterm-function-map "\e[27;8;60~" [?\C-\M-<])
273 (define-key xterm-function-map "\e[27;8;62~" [?\C-\M->]) 290 (define-key xterm-function-map "\e[27;8;62~" [?\C-\M->])
274 (define-key xterm-function-map "\e[27;8;63~" [(C-M-\?)]) 291 (define-key xterm-function-map "\e[27;8;63~" [(control meta ??)])
275 292
276 (define-key xterm-function-map "\e[27;2;9~" [S-tab]) 293 (define-key xterm-function-map "\e[27;2;9~" [S-tab])
277 (define-key xterm-function-map "\e[27;2;13~" [S-return]) 294 (define-key xterm-function-map "\e[27;2;13~" [S-return])
278 295
279 (define-key xterm-function-map "\e[27;6;9~" [(C-S-tab)]) 296 (define-key xterm-function-map "\e[27;6;9~" [C-S-tab])
280 (define-key xterm-function-map "\e[27;6;13~" [(C-S-return)]) 297 (define-key xterm-function-map "\e[27;6;13~" [C-S-return])
281 298
282 ;; Other versions of xterm might emit these. 299 ;; Other versions of xterm might emit these.
283 (define-key xterm-function-map "\e[A" [up]) 300 (define-key xterm-function-map "\e[A" [up])
284 (define-key xterm-function-map "\e[B" [down]) 301 (define-key xterm-function-map "\e[B" [down])
285 (define-key xterm-function-map "\e[C" [right]) 302 (define-key xterm-function-map "\e[C" [right])