Mercurial > hg > xemacs-beta
annotate lisp/term/AT386.el @ 5724:ede80ef92a74
Make soft links in src for module source files, if built in to the executable.
This ensures that those files are built with the same compiler flags as all
other source files.
See these xemacs-beta messages:
<CAHCOHQn+q=Xuwq+y68dvqi7afAP9f-TdB7=8YiZ8VYO816sjHg@mail.gmail.com>
<f5by5ejqiyk.fsf@calexico.inf.ed.ac.uk>
| author | Jerry James <james@xemacs.org> |
|---|---|
| date | Sat, 02 Mar 2013 14:32:37 -0700 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 428 | 1 ;; AT386.el --- terminal support package for IBM AT keyboards |
| 2 | |
| 3 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | |
| 4 ;; Keywords: terminals | |
| 5 | |
| 6 ;; Copyright (C) 1992 Free Software Foundation, Inc. | |
| 7 | |
| 8 ;; This file is part of XEmacs. | |
| 9 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
622
diff
changeset
|
10 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
622
diff
changeset
|
11 ;; under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
622
diff
changeset
|
12 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
622
diff
changeset
|
13 ;; option) any later version. |
| 428 | 14 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
622
diff
changeset
|
15 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
622
diff
changeset
|
16 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
622
diff
changeset
|
17 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
622
diff
changeset
|
18 ;; for more details. |
| 428 | 19 |
| 20 ;; You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
622
diff
changeset
|
21 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 428 | 22 |
| 23 ;;; Commentary: | |
| 24 | |
| 25 ;;; Uses the Emacs 19 terminal initialization features --- won't work with 18. | |
| 26 | |
| 27 ;;; Code: | |
| 28 | |
| 622 | 29 (defvar AT386-keypad-map) |
| 30 | |
| 428 | 31 (if (boundp 'AT386-keypad-map) |
| 32 nil | |
| 33 ;; The terminal initialization should already have set up some keys | |
| 34 (setq AT386-keypad-map (lookup-key function-key-map "\e[")) | |
| 35 (if (not (keymapp AT386-keypad-map)) | |
| 36 (error "What? Your AT386 termcap/terminfo has no keycaps in it.")) | |
| 37 | |
| 38 ;; Equivalents of these are set up automatically by termcap/terminfo | |
| 39 ;; (define-key AT386-keypad-map "A" [up]) | |
| 40 ;; (define-key AT386-keypad-map "B" [down]) | |
| 41 ;; (define-key AT386-keypad-map "C" [right]) | |
| 42 ;; (define-key AT386-keypad-map "D" [left]) | |
| 43 | |
| 44 ;; These would be set up by terminfo, but not termcap | |
| 45 (define-key AT386-keypad-map "H" [home]) | |
| 46 (define-key AT386-keypad-map "Y" [end]) | |
| 47 (define-key AT386-keypad-map "U" [next]) ;; PgDn | |
| 48 (define-key AT386-keypad-map "V" [prior]) ;; PgUp | |
| 49 (define-key AT386-keypad-map "@" [insert]) ;; Ins key | |
| 50 | |
| 51 ;; These are not normally set up by either | |
| 52 (define-key AT386-keypad-map "G" [kp-5]) ;; Unlabeled center key | |
| 53 (define-key AT386-keypad-map "S" [kp-subtract]) | |
| 54 (define-key AT386-keypad-map "T" [kp-add]) | |
| 55 | |
| 56 ;; Arrange for the ALT key to be equivalent to ESC | |
| 57 (define-key function-key-map "\eN" [?\e]) ; ALT map | |
| 58 ) | |
| 59 | |
| 60 | |
| 61 ;;; AT386.el ends here |