Mercurial > emacs
comparison lisp/term/xterm.el @ 12159:e83a888f32d9
Initial revision
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 09 Jun 1995 02:31:33 +0000 |
parents | |
children | 23cc3f54e536 |
comparison
equal
deleted
inserted
replaced
12158:bad47702c3b1 | 12159:e83a888f32d9 |
---|---|
1 ;;; xterm.el --- define function key sequences for xterm | |
2 | |
3 ;; Author: FSF | |
4 ;; Keywords: terminals | |
5 | |
6 ;; Copyright (C) 1995 Free Software Foundation, Inc. | |
7 ;;; This file is part of GNU Emacs. | |
8 ;;; | |
9 ;;; GNU Emacs is free software; you can redistribute it and/or modify | |
10 ;;; it under the terms of the GNU General Public License as published by | |
11 ;;; the Free Software Foundation; either version 2, or (at your option) | |
12 ;;; any later version. | |
13 ;;; | |
14 ;;; GNU Emacs is distributed in the hope that it will be useful, | |
15 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 ;;; GNU General Public License for more details. | |
18 ;;; | |
19 ;;; You should have received a copy of the GNU General Public License | |
20 ;;; along with GNU Emacs; see the file COPYING. If not, write to | |
21 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
22 | |
23 ;;;; Code: | |
24 | |
25 (define-key function-key-map "\e[A" [up]) | |
26 (define-key function-key-map "\e[B" [down]) | |
27 (define-key function-key-map "\e[C" [right]) | |
28 (define-key function-key-map "\e[D" [left]) | |
29 (define-key function-key-map "\e[2~" [insert]) | |
30 (define-key function-key-map "\e[4~" [select]) | |
31 (define-key function-key-map "\e[5~" [prior]) | |
32 (define-key function-key-map "\e[6~" [next]) | |
33 (define-key function-key-map "\e[11~" [f1]) | |
34 (define-key function-key-map "\e[12~" [f2]) | |
35 (define-key function-key-map "\e[13~" [f3]) | |
36 (define-key function-key-map "\e[14~" [f4]) | |
37 (define-key function-key-map "\e[15~" [f5]) | |
38 (define-key function-key-map "\e[17~" [f6]) | |
39 (define-key function-key-map "\e[18~" [f7]) | |
40 (define-key function-key-map "\e[19~" [f8]) | |
41 (define-key function-key-map "\e[20~" [f9]) | |
42 (define-key function-key-map "\e[21~" [f10]) | |
43 (define-key function-key-map "\e[23~" [f11]) | |
44 (define-key function-key-map "\e[24~" [f12]) | |
45 (define-key function-key-map "\e[29~" [print]) |