Mercurial > emacs
annotate lisp/term/news.el @ 88018:4e0d27f39575
*** empty log message ***
author | Thien-Thi Nguyen <ttn@gnuvola.org> |
---|---|
date | Sun, 27 Jan 2008 11:06:45 +0000 |
parents | 107ccd98fa12 |
children | 606f2d163a64 f3ab0c2464f5 |
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 |
74509 | 3 ;; Copyright (C) 1989, 1993, 2001, 2002, 2003, 2004, |
79718 | 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
14170 | 5 |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
6 ;; Author: FSF |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
7 ;; Keywords: terminals |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
8 |
14170 | 9 ;; This file is part of GNU Emacs. |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
78226
030ae62d5c57
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
13 ;; the Free Software Foundation; either version 3, or (at your option) |
14170 | 14 ;; any later version. |
30 | 15 |
14170 | 16 ;; GNU Emacs is distributed in the hope that it will be useful, |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64084 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
30 | 25 |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
26 ;;; Commentary: |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
27 |
14170 | 28 ;; 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
|
29 |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
30 ;;; Code: |
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
31 |
64651
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
32 (defun terminal-init-news () |
64701
34bd8e434dd7
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64651
diff
changeset
|
33 "Terminal initialization function for news." |
83524
673d62ad74b5
Fix and/or simplify terminal initialization files.
Karoly Lorentey <lorentey@elte.hu>
parents:
83468
diff
changeset
|
34 ;; The terminal initialization should already have set up some keys |
85546
d3c6c7427cef
* term/news.el (terminal-init-news):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83648
diff
changeset
|
35 (let ((news-fkey-prefix (lookup-key input-decode-map "\eO"))) |
64651
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
36 (if (not (keymapp news-fkey-prefix)) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
37 (error "What? Your news termcap/terminfo has no keycaps in it")) |
30 | 38 |
64651
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
39 ;; Termcap or terminfo will set these |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
40 ;; (define-key news-fkey-prefix "P" [f1]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
41 ;; (define-key news-fkey-prefix "Q" [f2]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
42 ;; (define-key news-fkey-prefix "R" [f3]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
43 ;; (define-key news-fkey-prefix "S" [f4]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
44 ;; (define-key news-fkey-prefix "T" [f5]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
45 ;; (define-key news-fkey-prefix "U" [f6]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
46 ;; (define-key news-fkey-prefix "V" [f7]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
47 ;; (define-key news-fkey-prefix "W" [f8]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
48 ;; (define-key news-fkey-prefix "X" [f9]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
49 ;; (define-key news-fkey-prefix "Y" [f10]) |
30 | 50 |
64651
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
51 ;; Terminfo will set these |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
52 (define-key news-fkey-prefix "a" [execute]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
53 (define-key news-fkey-prefix "b" [select]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
54 (define-key news-fkey-prefix "c" [cancel]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
55 (define-key news-fkey-prefix "M" [kp-enter]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
56 (define-key news-fkey-prefix "q" [kp-1]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
57 (define-key news-fkey-prefix "s" [kp-3]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
58 (define-key news-fkey-prefix "u" [kp-5]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
59 (define-key news-fkey-prefix "w" [kp-7]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
60 (define-key news-fkey-prefix "y" [kp-9]) |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
61 |
64651
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
62 ;; These aren't in either termcap or terminfo's repertoire |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
63 (define-key news-fkey-prefix "m" [kp-subtract]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
64 (define-key news-fkey-prefix "k" [kp-add]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
65 (define-key news-fkey-prefix "l" [kp-separator]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
66 (define-key news-fkey-prefix "n" [kp-decimal]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
67 (define-key news-fkey-prefix "p" [kp-0]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
68 (define-key news-fkey-prefix "r" [kp-2]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
69 (define-key news-fkey-prefix "t" [kp-4]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
70 (define-key news-fkey-prefix "v" [kp-6]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
71 (define-key news-fkey-prefix "x" [kp-8]) |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
72 )) |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
73 |
85546
d3c6c7427cef
* term/news.el (terminal-init-news):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83648
diff
changeset
|
74 ;; arch-tag: bfe141a0-623b-4b42-b753-5d9353776c5e |
2139
b43b95612c90
Added headers, changed a few cookie names.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
494
diff
changeset
|
75 ;;; news.el ends here |