Mercurial > emacs
annotate lisp/term/news.el @ 49978:1687b79d54e7
*** empty log message ***
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 25 Feb 2003 06:19:36 +0000 |
parents | 33d53d287ee4 |
children | 695cf19ef79e d7ddb3e565de |
rev | line source |
---|---|
47726
33d53d287ee4
Add "no-byte-compile: t" in first line.
Juanma Barranquero <lekktu@gmail.com>
parents:
38431
diff
changeset
|
1 ;;; news.el --- keypad and function key bindings for the Sony NEWS keyboard -*- no-byte-compile: t -*- |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
2 |
14170 | 3 ;; Copyright (C) 1989, 1993 Free Software Foundation, Inc. |
4 | |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
5 ;; Author: FSF |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
6 ;; Keywords: terminals |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
7 |
14170 | 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. | |
30 | 14 |
14170 | 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 the | |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
30 | 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 |
14170 | 27 ;; Uses the Emacs 19 terminal initialization features --- won't work with 18. |
2139
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)) |
38431
853c3674f20a
Fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
17517
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]) |
8577
e4f634a14441
(news-fkey-prefix): Use kp-decimal, not kp-period.
Richard M. Stallman <rms@gnu.org>
parents:
3287
diff
changeset
|
65 (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
|
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 |