Mercurial > emacs
annotate lisp/term/news.el @ 2563:c8ae06bda9fa
(global-map): Remove function key bindings that duplicate stuff in
loaddefs.el.
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Fri, 23 Apr 1993 02:21:02 +0000 |
parents | 8638238fa65f |
children | f3c8ed7fcb45 |
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 |
30 | 6 ;; Copyright (C) 1989 Free Software Foundation, Inc. |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is distributed in the hope that it will be useful, | |
11 ;; but WITHOUT ANY WARRANTY. No author or distributor | |
12 ;; accepts responsibility to anyone for the consequences of using it | |
13 ;; or for whether it serves any particular purpose or works at all, | |
14 ;; unless he says so in writing. Refer to the GNU Emacs General Public | |
15 ;; License for full details. | |
16 | |
17 ;; Everyone is granted permission to copy, modify and redistribute | |
18 ;; GNU Emacs, but only under the conditions described in the | |
19 ;; GNU Emacs General Public License. A copy of this license is | |
20 ;; supposed to have been given to you along with GNU Emacs so you | |
21 ;; can know your rights and responsibilities. It should be in a | |
22 ;; file named COPYING. Among other things, the copyright notice | |
23 ;; and this notice must be preserved on all copies. | |
24 | |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
25 ;;; Commentary: |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
26 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
27 ;;; 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
|
28 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
29 ;;; Code: |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
30 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
31 (if (boundp 'news-fkey-prefix) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
32 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
|
33 ;; 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
|
34 (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
|
35 (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
|
36 (error "What? Your news termcap/terminfo has no keycaps in it.")) |
30 | 37 |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
38 ;; 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
|
39 ;; (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
|
40 ;; (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
|
41 ;; (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
|
42 ;; (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
|
43 ;; (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
|
44 ;; (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
|
45 ;; (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
|
46 ;; (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
|
47 ;; (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
|
48 ;; (define-key news-fkey-prefix "Y" [f10]) |
30 | 49 |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
50 ;; Terminfo will set these |
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 "a" [execute]) |
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 "b" [select]) |
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 "c" [cancel]) |
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 "M" [kp-enter]) |
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 "q" [kp-1]) |
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 "s" [kp-3]) |
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 "u" [kp-5]) |
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 "w" [kp-7]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
59 (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
|
60 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
61 ;; 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
|
62 (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
|
63 (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
|
64 (define-key news-fkey-prefix "l" [kp-separator]) |
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 "n" [kp-period]) |
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 "p" [kp-0]) |
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 "r" [kp-2]) |
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 "t" [kp-4]) |
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 "v" [kp-6]) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
70 (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
|
71 ) |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
72 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
73 ;;; news.el ends here |