Mercurial > hg > xemacs-beta

comparison lisp/term/AT386.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
3 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 3 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
4 ;; Keywords: terminals 4 ;; Keywords: terminals
5 5
6 ;; Copyright (C) 1992 Free Software Foundation, Inc. 6 ;; Copyright (C) 1992 Free Software Foundation, Inc.
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of XEmacs.
9 9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; XEmacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by 11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option) 12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version. 13 ;; any later version.
14 14
15 ;; GNU Emacs is distributed in the hope that it will be useful, 15 ;; XEmacs is distributed in the hope that it will be useful, but
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; GNU General Public License for more details. 18 ;; General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA.
23 24
24 ;;; Commentary: 25 ;;; Commentary:
25 26
26 ;;; Uses the Emacs 19 terminal initialization features --- won't work with 18. 27 ;;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
27 28
46 (define-key AT386-keypad-map "U" [next]) ;; PgDn 47 (define-key AT386-keypad-map "U" [next]) ;; PgDn
47 (define-key AT386-keypad-map "V" [prior]) ;; PgUp 48 (define-key AT386-keypad-map "V" [prior]) ;; PgUp
48 (define-key AT386-keypad-map "@" [insert]) ;; Ins key 49 (define-key AT386-keypad-map "@" [insert]) ;; Ins key
49 50
50 ;; These are not normally set up by either 51 ;; These are not normally set up by either
51 (define-key AT386-keypad-map "G" [kp_5]) ;; Unlabeled center key 52 (define-key AT386-keypad-map "G" [kp-5]) ;; Unlabeled center key
52 (define-key AT386-keypad-map "S" [kp_subtract]) 53 (define-key AT386-keypad-map "S" [kp-subtract])
53 (define-key AT386-keypad-map "T" [kp_add]) 54 (define-key AT386-keypad-map "T" [kp-add])
54 55
55 ;; Arrange for the ALT key to be equivalent to ESC 56 ;; Arrange for the ALT key to be equivalent to ESC
56 (define-key function-key-map "\eN" [?\e]) ; ALT map 57 (define-key function-key-map "\eN" [?\e]) ; ALT map
57 ) 58 )
58 59
59 60
60 ;;; AT386.el ends here 61 ;;; AT386.el ends here
61