Mercurial > hg > xemacs-beta
annotate lisp/term/scoansi.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 |
|---|---|
| 0 | 1 ;; scoansi.el --- set up key names for SCO ansi console |
| 2 | |
| 3 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc. | |
| 4 | |
| 5 ;; Author: Kean Johnston <jkj@paradigm.co.za> | |
| 6 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
7 ;; This file is part of XEmacs. |
| 0 | 8 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
9 ;; 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:
398
diff
changeset
|
10 ;; 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:
398
diff
changeset
|
11 ;; 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:
398
diff
changeset
|
12 ;; option) any later version. |
| 0 | 13 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
14 ;; 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:
398
diff
changeset
|
15 ;; 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:
398
diff
changeset
|
16 ;; 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:
398
diff
changeset
|
17 ;; for more details. |
| 0 | 18 |
| 19 ;; 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:
398
diff
changeset
|
20 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 0 | 21 |
| 22 ;; HISTORY | |
| 23 ;; jkj - Jan 18, 1993: Created. | |
| 398 | 24 ;; jkj - Nov 18, 1993: Modified to work with Emacs 19.21 |
| 0 | 25 |
| 26 ;; | |
| 27 ;; First of all, the normal cursor movement keys. Some of these, if not | |
| 28 ;; all, should be set up my termcap/terminfo. We reset them anyway for | |
| 29 ;; the sake of completeness. | |
| 30 ;; | |
| 31 (define-key function-key-map "\e[A" [up]) | |
| 32 (define-key function-key-map "\e[B" [down]) | |
| 33 (define-key function-key-map "\e[C" [right]) | |
| 34 (define-key function-key-map "\e[D" [left]) | |
| 35 (define-key function-key-map "\e[E" [center]) | |
| 36 (define-key function-key-map "\e[F" [end]) | |
| 37 (define-key function-key-map "\e[G" [next]) | |
| 38 (define-key function-key-map "\e[H" [home]) | |
| 39 (define-key function-key-map "\e[I" [prior]) | |
| 40 (define-key function-key-map "\e[L" [insert]) | |
| 41 (define-key function-key-map "\e[-" [kp-subtract]) | |
| 42 (define-key function-key-map "\e[+" [kp-add]) | |
| 43 | |
| 44 ;; | |
| 45 ;; And now all the function keys | |
| 46 ;; | |
| 47 | |
| 48 ;; Normal, unshifted keys | |
| 49 (define-key function-key-map "\e[M" [f1]) | |
| 50 (define-key function-key-map "\e[N" [f2]) | |
| 51 (define-key function-key-map "\e[O" [f3]) | |
| 52 (define-key function-key-map "\e[P" [f4]) | |
| 53 (define-key function-key-map "\e[Q" [f5]) | |
| 54 (define-key function-key-map "\e[R" [f6]) | |
| 55 (define-key function-key-map "\e[S" [f7]) | |
| 56 (define-key function-key-map "\e[T" [f8]) | |
| 57 (define-key function-key-map "\e[U" [f9]) | |
| 58 (define-key function-key-map "\e[V" [f10]) | |
| 59 (define-key function-key-map "\e[W" [f11]) | |
| 60 (define-key function-key-map "\e[X" [f12]) | |
| 61 | |
| 62 ;; Shift-function keys | |
| 63 (define-key function-key-map "\e[Y" [(shift f1)]) | |
| 64 (define-key function-key-map "\e[Z" [(shift f2)]) | |
| 65 (define-key function-key-map "\e[a" [(shift f3)]) | |
| 66 (define-key function-key-map "\e[b" [(shift f4)]) | |
| 67 (define-key function-key-map "\e[c" [(shift f5)]) | |
| 68 (define-key function-key-map "\e[d" [(shift f6)]) | |
| 69 (define-key function-key-map "\e[e" [(shift f7)]) | |
| 70 (define-key function-key-map "\e[f" [(shift f8)]) | |
| 71 (define-key function-key-map "\e[g" [(shift f9)]) | |
| 72 (define-key function-key-map "\e[h" [(shift f10)]) | |
| 73 (define-key function-key-map "\e[i" [(shift f11)]) | |
| 74 (define-key function-key-map "\e[j" [(shift f12)]) | |
| 75 | |
| 76 ;; Control function keys | |
| 77 (define-key function-key-map "\e[k" [(control f1)]) | |
| 78 (define-key function-key-map "\e[l" [(control f2)]) | |
| 79 (define-key function-key-map "\e[m" [(control f3)]) | |
| 80 (define-key function-key-map "\e[n" [(control f4)]) | |
| 81 (define-key function-key-map "\e[o" [(control f5)]) | |
| 82 (define-key function-key-map "\e[p" [(control f6)]) | |
| 83 (define-key function-key-map "\e[q" [(control f7)]) | |
| 84 (define-key function-key-map "\e[r" [(control f8)]) | |
| 85 (define-key function-key-map "\e[s" [(control f9)]) | |
| 86 (define-key function-key-map "\e[t" [(control f10)]) | |
| 87 (define-key function-key-map "\e[u" [(control f11)]) | |
| 88 (define-key function-key-map "\e[v" [(control f12)]) | |
| 89 | |
| 90 ;; Shift-control function keys | |
| 91 (define-key function-key-map "\e[w" [(control shift f1)]) | |
| 92 (define-key function-key-map "\e[x" [(control shift f2)]) | |
| 93 (define-key function-key-map "\e[y" [(control shift f3)]) | |
| 94 (define-key function-key-map "\e[z" [(control shift f4)]) | |
| 95 (define-key function-key-map "\e[@" [(control shift f5)]) | |
| 96 (define-key function-key-map "\e[[" [(control shift f6)]) | |
| 97 (define-key function-key-map "\e[\\" [(control shift f7)]) | |
| 98 (define-key function-key-map "\e[]" [(control shift f8)]) | |
| 99 (define-key function-key-map "\e[^" [(control shift f9)]) | |
| 100 (define-key function-key-map "\e[_" [(control shift f10)]) | |
| 101 (define-key function-key-map "\e[`" [(control shift f11)]) | |
| 102 (define-key function-key-map "\e[{" [(control shift f12)]) | |
| 103 | |
| 104 ;;; | |
| 105 ;;; Now come the extended key names. Please refer to README.sco for | |
| 106 ;;; more information regarding these keys and how to set them up. | |
| 107 ;;; | |
| 108 (define-key function-key-map "\e]A" [(shift home)]) | |
| 109 (define-key function-key-map "\e]B" [(shift up)]) | |
| 110 (define-key function-key-map "\e]C" [(shift prior)]) | |
| 111 (define-key function-key-map "\e]D" [(shift left)]) | |
| 112 (define-key function-key-map "\e]E" [(shift right)]) | |
| 113 (define-key function-key-map "\e]F" [(shift end)]) | |
| 114 (define-key function-key-map "\e]G" [(shift down)]) | |
| 115 (define-key function-key-map "\e]H" [(shift next)]) | |
| 116 (define-key function-key-map "\e]I" [(shift insert)]) | |
| 117 (define-key function-key-map "\e]J" [(shift delete)]) | |
| 118 | |
| 119 (define-key function-key-map "\e]K" [(control home)]) | |
| 120 (define-key function-key-map "\e]L" [(control up)]) | |
| 121 (define-key function-key-map "\e]M" [(control prior)]) | |
| 122 (define-key function-key-map "\e]N" [(control left)]) | |
| 123 (define-key function-key-map "\e]O" [(control right)]) | |
| 124 (define-key function-key-map "\e]P" [(control end)]) | |
| 125 (define-key function-key-map "\e]Q" [(control down)]) | |
| 126 (define-key function-key-map "\e]R" [(control next)]) | |
| 127 (define-key function-key-map "\e]S" [(control insert)]) | |
| 128 (define-key function-key-map "\e]T" [(control delete)]) | |
| 129 | |
| 130 (define-key function-key-map "\e]U" [(meta home)]) | |
| 131 (define-key function-key-map "\e]V" [(meta up)]) | |
| 132 (define-key function-key-map "\e]W" [(meta prior)]) | |
| 133 (define-key function-key-map "\e]X" [(meta left)]) | |
| 134 (define-key function-key-map "\e]Y" [(meta right)]) | |
| 135 (define-key function-key-map "\e]Z" [(meta end)]) | |
| 136 (define-key function-key-map "\e]a" [(meta down)]) | |
| 137 (define-key function-key-map "\e]b" [(meta next)]) | |
| 138 (define-key function-key-map "\e]c" [(meta insert)]) | |
| 139 (define-key function-key-map "\e]d" [(meta delete)]) | |
| 140 | |
| 141 (define-key function-key-map "\e]e" [(control center)]) | |
| 142 (define-key function-key-map "\e]f" [(control kp-subtract)]) | |
| 143 (define-key function-key-map "\e]g" [(control kp-add)]) | |
| 144 | |
| 145 (define-key function-key-map "\e]h" [(meta center)]) | |
| 146 (define-key function-key-map "\e]i" [(meta kp-subtract)]) | |
| 147 (define-key function-key-map "\e]j" [(meta kp-add)]) |