Mercurial > emacs
annotate lisp/international/iso-transl.el @ 22841:330629423307
(push_key_description): Output multibyte char as itself.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 28 Jul 1998 23:10:44 +0000 |
parents | ef38c9fcbc28 |
children | 2398b380208e |
rev | line source |
---|---|
4920 | 1 ;;; iso-transl.el --- keyboard input definitions for ISO 8859/1. |
4884 | 2 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
3 ;; Copyright (C) 1987, 1993, 1994, 1995 Free Software Foundation, Inc. |
4884 | 4 |
5 ;; Author: Howard Gayle | |
6 ;; Maintainer: FSF | |
7 ;; Keywords: i18n | |
8 | |
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 | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
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 | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
4884 | 25 |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
26 ;;; Commentary: |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
27 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
28 ;; Loading this package defines three ways of entering the non-ASCII |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
29 ;; printable characters with codes above 127: the prefix C-x 8, or the |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
30 ;; Alt key, or a dead accent key. For example, you can enter uppercase |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
31 ;; A-umlaut as `C-x 8 " A' or `Alt-" A' (if you have an Alt key) or |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
32 ;; `umlaut A' (if you have an umlaut/diaeresis key). |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
33 |
4884 | 34 ;;; Code: |
35 | |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
36 (defvar iso-transl-dead-key-alist |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
37 '((?\' . mute-acute) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
38 (?\` . mute-grave) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
39 (?\" . mute-diaeresis) |
16142
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
40 (?^ . mute-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
41 (?\~ . mute-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
42 (?\' . dead-acute) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
43 (?\` . dead-grave) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
44 (?\" . dead-diaeresis) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
45 (?^ . dead-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
46 (?\~ . dead-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
47 (?^ . dead-circum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
48 (?^ . dead-circumflex) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
49 (?\~ . dead-tilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
50 ;; Someone reports that these keys don't work if shifted. |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
51 ;; This might fix it--no word yet. |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
52 (?\' . S-dead-acute) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
53 (?\` . S-dead-grave) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
54 (?\" . S-dead-diaeresis) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
55 (?^ . S-dead-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
56 (?\~ . S-dead-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
57 (?^ . S-dead-circum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
58 (?^ . S-dead-circumflex) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
59 (?\~ . S-dead-tilde)) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
60 "Mapping of ASCII characters to their corresponding dead-key symbols.") |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
61 |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
62 ;; The two-character mnemonics are intended to be available in all languages. |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
63 ;; The ones beginning with `*' have one-character synonyms, but a |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
64 ;; language-specific table might override the short form for its own use. |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
65 (defvar iso-transl-char-map |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
66 '(("* " . [160])(" " . [160]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
67 ("*!" . [161])("!" . [161]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
68 ("\"\"" . [168]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
69 ("\"A" . [196]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
70 ("\"E" . [203]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
71 ("\"I" . [207]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
72 ("\"O" . [214]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
73 ("\"U" . [220]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
74 ("\"a" . [228]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
75 ("\"e" . [235]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
76 ("\"i" . [239]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
77 ("\"o" . [246]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
78 ("\"s" . [223]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
79 ("\"u" . [252]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
80 ("\"y" . [255]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
81 ("''" . [180]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
82 ("'A" . [193]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
83 ("'E" . [201]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
84 ("'I" . [205]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
85 ("'O" . [211]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
86 ("'U" . [218]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
87 ("'Y" . [221]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
88 ("'a" . [225]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
89 ("'e" . [233]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
90 ("'i" . [237]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
91 ("'o" . [243]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
92 ("'u" . [250]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
93 ("'y" . [253]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
94 ("*$" . [164])("$" . [164]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
95 ("*+" . [177])("+" . [177]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
96 (",," . [184]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
97 (",C" . [199]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
98 (",c" . [231]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
99 ("*-" . [173])("-" . [173]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
100 ("*." . [183])("." . [183]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
101 ("//" . [247]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
102 ("/A" . [197]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
103 ("/E" . [198]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
104 ("/O" . [216]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
105 ("/a" . [229]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
106 ("/e" . [230]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
107 ("/o" . [248]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
108 ("1/2" . [189]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
109 ("1/4" . [188]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
110 ("3/4" . [190]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
111 ("*<" . [171])("<" . [171]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
112 ("*=" . [175])("=" . [175]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
113 ("*>" . [187])(">" . [187]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
114 ("*?" . [191])("?" . [191]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
115 ("*C" . [169])("C" . [169]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
116 ("*L" . [163])("L" . [163]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
117 ("*P" . [182])("P" . [182]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
118 ("*R" . [174])("R" . [174]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
119 ("*S" . [167])("S" . [167]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
120 ("*Y" . [165])("Y" . [165]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
121 ("^1" . [185]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
122 ("^2" . [178]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
123 ("^3" . [179]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
124 ("^A" . [194]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
125 ("^E" . [202]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
126 ("^I" . [206]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
127 ("^O" . [212]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
128 ("^U" . [219]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
129 ("^a" . [226]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
130 ("^e" . [234]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
131 ("^i" . [238]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
132 ("^o" . [244]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
133 ("^u" . [251]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
134 ("_a" . [170]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
135 ("_o" . [186]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
136 ("`A" . [192]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
137 ("`E" . [200]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
138 ("`I" . [204]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
139 ("`O" . [210]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
140 ("`U" . [217]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
141 ("`a" . [224]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
142 ("`e" . [232]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
143 ("`i" . [236]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
144 ("`o" . [242]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
145 ("`u" . [249]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
146 ("*c" . [162])("c" . [162]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
147 ("*o" . [176])("o" . [176]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
148 ("*u" . [181])("u" . [181]) |
12474
d3223d946163
(iso-transl-char-map): Treat m, *m like u and *u.
Richard M. Stallman <rms@gnu.org>
parents:
10600
diff
changeset
|
149 ("*m" . [181])("m" . [181]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
150 ("*x" . [215])("x" . [215]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
151 ("*|" . [166])("|" . [166]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
152 ("~A" . [195]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
153 ("~D" . [208]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
154 ("~N" . [209]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
155 ("~O" . [213]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
156 ("~T" . [222]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
157 ("~a" . [227]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
158 ("~d" . [240]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
159 ("~n" . [241]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
160 ("~o" . [245]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
161 ("~t" . [254]) |
16175
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
162 ("~~" . [172]) |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
163 ("' " . "'") |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
164 ("` " . "`") |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
165 ("\" " . "\"") |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
166 ("^ " . "^") |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
167 ("~ " . "~")) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
168 "Alist of character translations for entering ISO characters. |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
169 Each element has the form (STRING . VECTOR). |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
170 The sequence STRING of ASCII chars translates into the |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
171 sequence VECTOR. (VECTOR is normally one character long.)") |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
172 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
173 ;; Language-specific translation lists. |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
174 (defvar iso-transl-language-alist |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
175 '(("Esperanto" |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
176 ("C" . [198]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
177 ("G" . [216]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
178 ("H" . [166]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
179 ("J" . [172]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
180 ("S" . [222]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
181 ("U" . [221]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
182 ("c" . [230]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
183 ("g" . [248]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
184 ("h" . [182]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
185 ("j" . [188]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
186 ("s" . [254]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
187 ("u" . [253])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
188 ("French" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
189 ("C" . [199]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
190 ("c" . [231])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
191 ("German" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
192 ("A" . [196]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
193 ("O" . [214]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
194 ("U" . [220]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
195 ("a" . [228]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
196 ("o" . [246]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
197 ("s" . [223]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
198 ("u" . [252])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
199 ("Portuguese" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
200 ("C" . [199]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
201 ("c" . [231])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
202 ("Spanish" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
203 ("!" . [161]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
204 ("?" . [191]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
205 ("N" . [241]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
206 ("n" . [209])))) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
207 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
208 (defvar iso-transl-ctl-x-8-map nil |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
209 "Keymap for C-x 8 prefix.") |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
210 (or iso-transl-ctl-x-8-map |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
211 (setq iso-transl-ctl-x-8-map (make-sparse-keymap))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
212 (or key-translation-map |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
213 (setq key-translation-map (make-sparse-keymap))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
214 (define-key key-translation-map "\C-x8" iso-transl-ctl-x-8-map) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
215 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
216 ;; For each entry in the alist, we'll make up to three ways to generate |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
217 ;; the character in question: the prefix `C-x 8'; the ALT modifier on |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
218 ;; the first key of the sequence; and (if applicable) replacing the first |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
219 ;; key of the sequence with the corresponding dead key. For example, a |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
220 ;; character associated with the string "~n" can be input with `C-x 8 ~ n' |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
221 ;; or `Alt-~ n' or `mute-asciitilde n'. |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
222 (defun iso-transl-define-keys (alist) |
16142
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
223 (while alist |
17792
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
224 (let ((translated-vec |
20859
ef38c9fcbc28
(iso-transl-define-keys): Don't add
Richard M. Stallman <rms@gnu.org>
parents:
17847
diff
changeset
|
225 (let ((val (cdr (car alist)))) |
ef38c9fcbc28
(iso-transl-define-keys): Don't add
Richard M. Stallman <rms@gnu.org>
parents:
17847
diff
changeset
|
226 (if (and enable-multibyte-characters (>= (aref val 0) ?\200)) |
ef38c9fcbc28
(iso-transl-define-keys): Don't add
Richard M. Stallman <rms@gnu.org>
parents:
17847
diff
changeset
|
227 (vector (+ (aref val 0) nonascii-insert-offset)) |
ef38c9fcbc28
(iso-transl-define-keys): Don't add
Richard M. Stallman <rms@gnu.org>
parents:
17847
diff
changeset
|
228 val)))) |
17792
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
229 (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
230 (let ((inchar (aref (car (car alist)) 0)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
231 (vec (vconcat (car (car alist)))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
232 (tail iso-transl-dead-key-alist)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
233 (aset vec 0 (logior (aref vec 0) ?\A-\^@)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
234 (define-key key-translation-map vec translated-vec) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
235 (define-key isearch-mode-map (vector (aref vec 0)) nil) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
236 (while tail |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
237 (if (eq (car (car tail)) inchar) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
238 (let ((deadvec (copy-sequence vec)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
239 (deadkey (cdr (car tail)))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
240 (aset deadvec 0 deadkey) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
241 (define-key isearch-mode-map (vector deadkey) nil) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
242 (define-key key-translation-map deadvec translated-vec))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
243 (setq tail (cdr tail))))) |
16145
4f3df9697fe0
(iso-transl-define-keys): Fix paren error in prev change.
Richard M. Stallman <rms@gnu.org>
parents:
16142
diff
changeset
|
244 (setq alist (cdr alist)))) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
245 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
246 (defun iso-transl-set-language (lang) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
247 (interactive (list (let ((completion-ignore-case t)) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
248 (completing-read "Set which language? " |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
249 iso-transl-language-alist nil t)))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
250 (iso-transl-define-keys (cdr (assoc lang iso-transl-language-alist)))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
251 |
10523
2303cb9ce523
(iso-transl-char-map): Add elements for mute-acute, etc.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
252 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
253 ;; The standard mapping comes automatically. You can partially overlay it |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
254 ;; with a language-specific mapping by using `M-x iso-transl-set-language'. |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
255 (iso-transl-define-keys iso-transl-char-map) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
256 |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
257 (define-key isearch-mode-map "\C-x" nil) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
258 (define-key isearch-mode-map [?\C-x t] 'isearch-other-control-char) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
259 (define-key isearch-mode-map "\C-x8" nil) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
260 |
4884 | 261 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
262 (provide 'iso-transl) |
4884 | 263 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
264 ;;; iso-transl.el ends here |