Mercurial > hg > xemacs-beta

comparison lisp/term/news.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: FSF 3 ;; Author: FSF
4 ;; Keywords: terminals 4 ;; Keywords: terminals
5 5
6 ;; Copyright (C) 1989, 1993 Free Software Foundation, Inc. 6 ;; Copyright (C) 1989, 1993 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 it
11 ;;; it under the terms of the GNU General Public License as published by 11 ;;; 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
13 ;;; any later version. 13 ;;; option) 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
22 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;;; Boston, MA 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
48 49
49 ;; Terminfo will set these 50 ;; Terminfo will set these
50 (define-key news-fkey-prefix "a" [execute]) 51 (define-key news-fkey-prefix "a" [execute])
51 (define-key news-fkey-prefix "b" [select]) 52 (define-key news-fkey-prefix "b" [select])
52 (define-key news-fkey-prefix "c" [cancel]) 53 (define-key news-fkey-prefix "c" [cancel])
53 (define-key news-fkey-prefix "M" [kp_enter]) 54 (define-key news-fkey-prefix "M" [kp-enter])
54 (define-key news-fkey-prefix "q" [kp_1]) 55 (define-key news-fkey-prefix "q" [kp-1])
55 (define-key news-fkey-prefix "s" [kp_3]) 56 (define-key news-fkey-prefix "s" [kp-3])
56 (define-key news-fkey-prefix "u" [kp_5]) 57 (define-key news-fkey-prefix "u" [kp-5])
57 (define-key news-fkey-prefix "w" [kp_7]) 58 (define-key news-fkey-prefix "w" [kp-7])
58 (define-key news-fkey-prefix "y" [kp_9]) 59 (define-key news-fkey-prefix "y" [kp-9])
59 60
60 ;; These aren't in either termcap or terminfo's repertoire 61 ;; These aren't in either termcap or terminfo's repertoire
61 (define-key news-fkey-prefix "m" [kp_subtract]) 62 (define-key news-fkey-prefix "m" [kp-subtract])
62 (define-key news-fkey-prefix "k" [kp_add]) 63 (define-key news-fkey-prefix "k" [kp-add])
63 (define-key news-fkey-prefix "l" [kp_separator]) 64 (define-key news-fkey-prefix "l" [kp-separator])
64 (define-key news-fkey-prefix "n" [kp_decimal]) 65 (define-key news-fkey-prefix "n" [kp-decimal])
65 (define-key news-fkey-prefix "p" [kp_0]) 66 (define-key news-fkey-prefix "p" [kp-0])
66 (define-key news-fkey-prefix "r" [kp_2]) 67 (define-key news-fkey-prefix "r" [kp-2])
67 (define-key news-fkey-prefix "t" [kp_4]) 68 (define-key news-fkey-prefix "t" [kp-4])
68 (define-key news-fkey-prefix "v" [kp_6]) 69 (define-key news-fkey-prefix "v" [kp-6])
69 (define-key news-fkey-prefix "x" [kp_8]) 70 (define-key news-fkey-prefix "x" [kp-8])
70 ) 71 )
71 72
72 ;;; news.el ends here 73 ;;; news.el ends here