Mercurial > hg > xemacs-beta
annotate lisp/term/linux.el @ 5697:40fbceabaafd
menubar-items.el (default-menubar): Reorganize.
Add PROBLEMS to toplevel.
New "More about XEmacs" submenu for NEWS, licensing, etc.
New "Recent History" menu for messages, lossage, etc.
Get rid of ugly and unexpressive ellipses.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Mon, 24 Dec 2012 03:08:33 +0900 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 428 | 1 ;;; linux.el --- define function key sequences for the Linux console |
| 2 | |
| 3 ;; Author: Ben Wing | |
| 4 ;; Keywords: terminals | |
| 5 | |
| 6 ;; Copyright (C) 1996 Ben Wing. | |
| 7 ;; This file is part of XEmacs. | |
| 8 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1904
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:
1904
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:
1904
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:
1904
diff
changeset
|
12 ;; option) any later version. |
| 428 | 13 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1904
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:
1904
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:
1904
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:
1904
diff
changeset
|
17 ;; for more details. |
| 428 | 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:
1904
diff
changeset
|
20 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 428 | 21 |
| 622 | 22 ;;; Synched up with: FSF 21.0.103. |
| 23 ;;; (All the define-keys are our own.) | |
| 24 | |
| 25 ;;; Commentary: | |
| 26 | |
| 27 ;;; Code: | |
| 28 | |
| 29 ;; The Linux console handles Latin-1 by default. | |
| 30 | |
| 31 (if-fboundp 'set-terminal-coding-system | |
| 32 (unless (declare-fboundp (terminal-coding-system)) | |
| 33 (set-terminal-coding-system 'iso-8859-1))) | |
| 428 | 34 |
| 622 | 35 ;; Make Latin-1 input characters work, too. |
| 36 ;; Meta will continue to work, because the kernel | |
| 37 ;; turns that into Escape. | |
| 38 | |
| 39 (let ((value (current-input-mode))) | |
| 40 ;; The third arg only matters in that it is not t or nil. | |
| 1904 | 41 (set-input-mode (nth 0 value) (nth 1 value) 'iso-8859-1 (nth 3 value))) |
| 622 | 42 |
| 43 ;; The defines below seem to get automatically set in recent Termcaps. | |
| 44 ;; It was probably the case that in 1996, there was no good Linux termcap, | |
| 45 ;; which is why such a file was needed. | |
| 46 | |
| 47 ; ;; Termcap or terminfo should set these next four? | |
| 48 ; (define-key function-key-map "\e[A" [up]) | |
| 49 ; (define-key function-key-map "\e[B" [down]) | |
| 50 ; (define-key function-key-map "\e[C" [right]) | |
| 51 ; (define-key function-key-map "\e[D" [left]) | |
| 428 | 52 |
| 622 | 53 ; (define-key function-key-map "\e[[A" [f1]) |
| 54 ; (define-key function-key-map "\e[[B" [f2]) | |
| 55 ; (define-key function-key-map "\e[[C" [f3]) | |
| 56 ; (define-key function-key-map "\e[[D" [f4]) | |
| 57 ; (define-key function-key-map "\e[[E" [f5]) | |
| 58 ; (define-key function-key-map "\e[17~" [f6]) | |
| 59 ; (define-key function-key-map "\e[18~" [f7]) | |
| 60 ; (define-key function-key-map "\e[19~" [f8]) | |
| 61 ; (define-key function-key-map "\e[20~" [f9]) | |
| 62 ; (define-key function-key-map "\e[21~" [f10]) | |
| 63 ; (define-key function-key-map "\e[23~" [f11]) | |
| 64 ; (define-key function-key-map "\e[24~" [f12]) | |
| 65 ; (define-key function-key-map "\e[25~" [f13]) | |
| 66 ; (define-key function-key-map "\e[26~" [f14]) | |
| 67 ; (define-key function-key-map "\e[28~" [f15]) | |
| 68 ; (define-key function-key-map "\e[29~" [f16]) | |
| 69 ; (define-key function-key-map "\e[31~" [f17]) | |
| 70 ; (define-key function-key-map "\e[32~" [f18]) | |
| 71 ; (define-key function-key-map "\e[33~" [f19]) | |
| 72 ; (define-key function-key-map "\e[34~" [f20]) | |
| 73 | |
| 74 ;; But they come out f13-f20 (see above), which are not what we | |
| 75 ;; normally call the shifted function keys. F11 = Shift-F1, F2 = | |
| 76 ;; Shift-F2. What a mess, see below. | |
| 77 (define-key function-key-map "\e[25~" [(shift f3)]) | |
| 78 (define-key function-key-map "\e[26~" [(shift f4)]) | |
| 79 (define-key function-key-map "\e[28~" [(shift f5)]) | |
| 80 (define-key function-key-map "\e[29~" [(shift f6)]) | |
| 81 (define-key function-key-map "\e[31~" [(shift f7)]) | |
| 82 (define-key function-key-map "\e[32~" [(shift f8)]) | |
| 83 (define-key function-key-map "\e[33~" [(shift f9)]) | |
| 84 (define-key function-key-map "\e[34~" [(shift f10)]) | |
| 428 | 85 |
| 622 | 86 ;; I potentially considered these. They would make people's Shift-F1 and |
| 87 ;; Shift-F2 bindings work -- but of course they would fail to work if the | |
| 88 ;; person also put F11 and F12 bindings. It might also be confusing because | |
| 89 ;; the person with no bindings who hits f11 gets "error shift-f1 unbound". | |
| 90 ;; #### If only there were a proper way around this. | |
| 91 ;(define-key global-map 'f11 [(shift f1)]) | |
| 92 ;(define-key global-map 'f12 [(shift f2)]) | |
| 93 | |
| 94 ; (define-key function-key-map "\e[1~" [home]) | |
| 95 ;; seems to not get handled correctly automatically | |
| 96 (define-key function-key-map "\e[2~" [insert]) | |
| 97 ; (define-key function-key-map "\e[3~" [delete]) | |
| 98 ; (define-key function-key-map "\e[4~" [end]) | |
| 99 ; (define-key function-key-map "\e[5~" [prior]) | |
| 100 ; (define-key function-key-map "\e[6~" [next]) | |
| 101 ; (define-key function-key-map "\e[G" [kp-5]) | |
| 428 | 102 |
| 622 | 103 ; (define-key function-key-map "\eOp" [kp-0]) |
| 104 ; (define-key function-key-map "\eOq" [kp-1]) | |
| 105 ; (define-key function-key-map "\eOr" [kp-2]) | |
| 106 ; (define-key function-key-map "\eOs" [kp-3]) | |
| 107 ; (define-key function-key-map "\eOt" [kp-4]) | |
| 108 ; (define-key function-key-map "\eOu" [kp-5]) | |
| 109 ; (define-key function-key-map "\eOv" [kp-6]) | |
| 110 ; (define-key function-key-map "\eOw" [kp-7]) | |
| 111 ; (define-key function-key-map "\eOx" [kp-8]) | |
| 112 ; (define-key function-key-map "\eOy" [kp-9]) | |
| 428 | 113 |
| 622 | 114 ; (define-key function-key-map "\eOl" [kp-add]) |
| 115 ; (define-key function-key-map "\eOS" [kp-subtract]) | |
| 116 ; (define-key function-key-map "\eOM" [kp-enter]) | |
| 117 ; (define-key function-key-map "\eOR" [kp-multiply]) | |
| 118 ; (define-key function-key-map "\eOQ" [kp-divide]) | |
| 119 ; (define-key function-key-map "\eOn" [kp-decimal]) | |
| 120 ; (define-key function-key-map "\eOP" [kp-numlock]) | |
| 428 | 121 |
| 122 ;;; linux.el ends here | |
| 123 |