Mercurial > emacs
annotate lisp/term/news.el @ 8603:babcbeaa211f
(Fcopy_file, build_annotations, Fdo_auto_save): Delete unused variables.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 24 Aug 1994 00:39:46 +0000 |
parents | e4f634a14441 |
children | 23cc3f54e536 |
rev | line source |
---|---|
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
1 ;; news.el --- keypad and function key bindings for the Sony NEWS keyboard |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
2 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
3 ;; Author: FSF |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
4 ;; Keywords: terminals |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
5 |
3287 | 6 ;; Copyright (C) 1989, 1993 Free Software Foundation, Inc. |
30 | 7 |
3287 | 8 ;;; This file is part of GNU Emacs. |
9 ;;; | |
10 ;;; GNU Emacs is free software; you can redistribute it and/or modify | |
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) | |
13 ;;; any later version. | |
14 ;;; | |
15 ;;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;;; GNU General Public License for more details. | |
19 ;;; | |
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 | |
22 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
30 | 23 |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
24 ;;; Commentary: |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
25 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
26 ;;; Uses the Emacs 19 terminal initialization features --- won't work with 18. |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
27 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
28 ;;; Code: |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
29 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
30 (if (boundp 'news-fkey-prefix) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
31 nil |
2240
8638238fa65f
Fix things so that bindings are added to the keymap already created by
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2139
diff
changeset
|
32 ;; The terminal initialization should already have set up some keys |
8638238fa65f
Fix things so that bindings are added to the keymap already created by
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2139
diff
changeset
|
33 (setq news-fkey-prefix (lookup-key function-key-map "\eO")) |
8638238fa65f
Fix things so that bindings are added to the keymap already created by
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2139
diff
changeset
|
34 (if (not (keymapp news-fkey-prefix)) |
8638238fa65f
Fix things so that bindings are added to the keymap already created by
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2139
diff
changeset
|
35 (error "What? Your news termcap/terminfo has no keycaps in it.")) |
30 | 36 |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
37 ;; Termcap or terminfo will set these |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
38 ;; (define-key news-fkey-prefix "P" [f1]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
39 ;; (define-key news-fkey-prefix "Q" [f2]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
40 ;; (define-key news-fkey-prefix "R" [f3]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
41 ;; (define-key news-fkey-prefix "S" [f4]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
42 ;; (define-key news-fkey-prefix "T" [f5]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
43 ;; (define-key news-fkey-prefix "U" [f6]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
44 ;; (define-key news-fkey-prefix "V" [f7]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
45 ;; (define-key news-fkey-prefix "W" [f8]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
46 ;; (define-key news-fkey-prefix "X" [f9]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
47 ;; (define-key news-fkey-prefix "Y" [f10]) |
30 | 48 |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
49 ;; Terminfo will set these |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
50 (define-key news-fkey-prefix "a" [execute]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
51 (define-key news-fkey-prefix "b" [select]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
52 (define-key news-fkey-prefix "c" [cancel]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
53 (define-key news-fkey-prefix "M" [kp-enter]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
54 (define-key news-fkey-prefix "q" [kp-1]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
55 (define-key news-fkey-prefix "s" [kp-3]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
56 (define-key news-fkey-prefix "u" [kp-5]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
57 (define-key news-fkey-prefix "w" [kp-7]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
58 (define-key news-fkey-prefix "y" [kp-9]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
59 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
60 ;; These aren't in either termcap or terminfo's repertoire |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
61 (define-key news-fkey-prefix "m" [kp-subtract]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
62 (define-key news-fkey-prefix "k" [kp-add]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
63 (define-key news-fkey-prefix "l" [kp-separator]) |
8577
e4f634a14441
(news-fkey-prefix): Use kp-decimal, not kp-period.
Richard M. Stallman <rms@gnu.org>
parents:
3287
diff
changeset
|
64 (define-key news-fkey-prefix "n" [kp-decimal]) |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
65 (define-key news-fkey-prefix "p" [kp-0]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
66 (define-key news-fkey-prefix "r" [kp-2]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
67 (define-key news-fkey-prefix "t" [kp-4]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
68 (define-key news-fkey-prefix "v" [kp-6]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
69 (define-key news-fkey-prefix "x" [kp-8]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
70 ) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
71 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
72 ;;; news.el ends here |