Mercurial > hg > xemacs-beta

comparison lisp/term/lk201.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
1 ;;; lk201.el --- basic editing commands for XEmacs
2
3 ;; This file is part of XEmacs.
4
5 ;; XEmacs is free software; you can redistribute it and/or modify it
6 ;; under the terms of the GNU General Public License as published by
7 ;; the Free Software Foundation; either version 2, or (at your option)
8 ;; any later version.
9
10 ;; XEmacs is distributed in the hope that it will be useful, but
11 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 ;; General Public License for more details.
14
15 ;; You should have received a copy of the GNU General Public License
16 ;; along with XEmacs; see the file COPYING. If not, write to the Free
17 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
18 ;; 02111-1307, USA.
19
20 ;;; Synched up with: Not in FSF
21
22 ;;; Commentary:
23
1 ;; Define function key sequences for DEC terminals. 24 ;; Define function key sequences for DEC terminals.
2 25
3 ;; Termcap or terminfo should set these. 26 ;; Termcap or terminfo should set these.
4 ;; (define-key function-key-map "\e[A" [up]) 27 ;; (define-key function-key-map "\e[A" [up])
5 ;; (define-key function-key-map "\e[B" [down]) 28 ;; (define-key function-key-map "\e[B" [down])
6 ;; (define-key function-key-map "\e[C" [right]) 29 ;; (define-key function-key-map "\e[C" [right])
7 ;; (define-key function-key-map "\e[D" [left]) 30 ;; (define-key function-key-map "\e[D" [left])
31
32 ;;; Code:
8 33
9 (define-key function-key-map "\e[1~" [find]) 34 (define-key function-key-map "\e[1~" [find])
10 (define-key function-key-map "\e[2~" [insert]) 35 (define-key function-key-map "\e[2~" [insert])
11 (define-key function-key-map "\e[3~" [delete]) 36 (define-key function-key-map "\e[3~" [delete])
12 (define-key function-key-map "\e[4~" [select]) 37 (define-key function-key-map "\e[4~" [select])
41 ;; (define-key function-key-map "\eOC" [right]) 66 ;; (define-key function-key-map "\eOC" [right])
42 ;; (define-key function-key-map "\eOD" [left]) 67 ;; (define-key function-key-map "\eOD" [left])
43 68
44 ;; Termcap or terminfo should set these, but doesn't properly. 69 ;; Termcap or terminfo should set these, but doesn't properly.
45 ;; Termcap sets these to k1-k4, which get mapped to f1-f4 in term.c 70 ;; Termcap sets these to k1-k4, which get mapped to f1-f4 in term.c
46 (define-key function-key-map "\eOP" [kp_f1]) 71 (define-key function-key-map "\eOP" [kp-f1])
47 (define-key function-key-map "\eOQ" [kp_f2]) 72 (define-key function-key-map "\eOQ" [kp-f2])
48 (define-key function-key-map "\eOR" [kp_f3]) 73 (define-key function-key-map "\eOR" [kp-f3])
49 (define-key function-key-map "\eOS" [kp_f4]) 74 (define-key function-key-map "\eOS" [kp-f4])
50 75
51 (define-key function-key-map "\eOI" [kp_tab]) 76 (define-key function-key-map "\eOI" [kp-tab])
52 (define-key function-key-map "\eOj" [kp_multiply]) 77 (define-key function-key-map "\eOj" [kp-multiply])
53 (define-key function-key-map "\eOk" [kp_add]) 78 (define-key function-key-map "\eOk" [kp-add])
54 (define-key function-key-map "\eOl" [kp_separator]) 79 (define-key function-key-map "\eOl" [kp-separator])
55 (define-key function-key-map "\eOM" [kp_enter]) 80 (define-key function-key-map "\eOM" [kp-enter])
56 (define-key function-key-map "\eOm" [kp_subtract]) 81 (define-key function-key-map "\eOm" [kp-subtract])
57 (define-key function-key-map "\eOn" [kp_decimal]) 82 (define-key function-key-map "\eOn" [kp-decimal])
58 (define-key function-key-map "\eOo" [kp_divide]) 83 (define-key function-key-map "\eOo" [kp-divide])
59 (define-key function-key-map "\eOp" [kp_0]) 84 (define-key function-key-map "\eOp" [kp-0])
60 (define-key function-key-map "\eOq" [kp_1]) 85 (define-key function-key-map "\eOq" [kp-1])
61 (define-key function-key-map "\eOr" [kp_2]) 86 (define-key function-key-map "\eOr" [kp-2])
62 (define-key function-key-map "\eOs" [kp_3]) 87 (define-key function-key-map "\eOs" [kp-3])
63 (define-key function-key-map "\eOt" [kp_4]) 88 (define-key function-key-map "\eOt" [kp-4])
64 (define-key function-key-map "\eOu" [kp_5]) 89 (define-key function-key-map "\eOu" [kp-5])
65 (define-key function-key-map "\eOv" [kp_6]) 90 (define-key function-key-map "\eOv" [kp-6])
66 (define-key function-key-map "\eOw" [kp_7]) 91 (define-key function-key-map "\eOw" [kp-7])
67 (define-key function-key-map "\eOx" [kp_8]) 92 (define-key function-key-map "\eOx" [kp-8])
68 (define-key function-key-map "\eOy" [kp_9]) 93 (define-key function-key-map "\eOy" [kp-9])
94
95 ;;; lk201.el ends here