Mercurial > emacs

comparison lisp/international/iso-transl.el @ 42391:2a84e0b7ab92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iso-transl-char-map) Eliminate the alias symbols--put the translated sequences here directly.
author Richard M. Stallman <rms@gnu.org>
date Fri, 28 Dec 2001 22:27:37 +0000
parents c1368417eb85
children f7585d63783f
comparison
equal deleted inserted replaced
42390:36edcfb696f9 42391:2a84e0b7ab92
77 ;; When a translation is non-ASCII, we use a symbol name 77 ;; When a translation is non-ASCII, we use a symbol name
78 ;; whose "function definition" is a translation, rather than 78 ;; whose "function definition" is a translation, rather than
79 ;; writing the translation directly here. 79 ;; writing the translation directly here.
80 ;; That is for the sake of C-x 8 C-h. 80 ;; That is for the sake of C-x 8 C-h.
81 (defvar iso-transl-char-map 81 (defvar iso-transl-char-map
82 '(("* " . iso-transl-no-break-space) 82 '(("* " . [? ])
83 (" " . iso-transl-no-break-space) 83 (" " . [? ])
84 ("*!" . iso-transl-inverted-exclamation-mark) 84 ("*!" . [?¡])
85 ("!" . iso-transl-inverted-exclamation-mark) 85 ("!" . [?¡])
86 ("\"\"" . iso-transl-diaeresis) 86 ("\"\"" . [?¨])
87 ("\"A" . iso-transl-A-umlaut) 87 ("\"A" . [?Ä])
88 ("\"E" . iso-transl-E-umlaut) 88 ("\"E" . [?Ë])
89 ("\"I" . iso-transl-I-umlaut) 89 ("\"I" . [?Ï])
90 ("\"O" . iso-transl-O-umlaut) 90 ("\"O" . [?Ö])
91 ("\"U" . iso-transl-U-umlaut) 91 ("\"U" . [?Ü])
92 ("\"a" . iso-transl-a-umlaut) 92 ("\"a" . [?ä])
93 ("\"e" . iso-transl-e-umlaut) 93 ("\"e" . [?ë])
94 ("\"i" . iso-transl-i-umlaut) 94 ("\"i" . [?ï])
95 ("\"o" . iso-transl-o-umlaut) 95 ("\"o" . [?ö])
96 ("\"s" . iso-transl-ss) 96 ("\"s" . [?ß])
97 ("\"u" . iso-transl-u-umlaut) 97 ("\"u" . [?ü])
98 ("\"y" . iso-transl-y-umlaut) 98 ("\"y" . [?ÿ])
99 ("''" . iso-transl-acute-accent) 99 ("''" . [?´])
100 ("'A" . iso-transl-A-acute) 100 ("'A" . [?Á])
101 ("'E" . iso-transl-E-acute) 101 ("'E" . [?É])
102 ("'I" . iso-transl-I-acute) 102 ("'I" . [?Í])
103 ("'O" . iso-transl-O-acute) 103 ("'O" . [?Ó])
104 ("'U" . iso-transl-U-acute) 104 ("'U" . [?Ú])
105 ("'Y" . iso-transl-Y-acute) 105 ("'Y" . [?Ý])
106 ("'a" . iso-transl-a-acute) 106 ("'a" . [?á])
107 ("'e" . iso-transl-e-acute) 107 ("'e" . [?é])
108 ("'i" . iso-transl-i-acute) 108 ("'i" . [?í])
109 ("'o" . iso-transl-o-acute) 109 ("'o" . [?ó])
110 ("'u" . iso-transl-u-acute) 110 ("'u" . [?ú])
111 ("'y" . iso-transl-y-acute) 111 ("'y" . [?ý])
112 ("*$" . iso-transl-general-currency-sign) 112 ("*$" . [?¤])
113 ("$" . iso-transl-general-currency-sign) 113 ("$" . [?¤])
114 ("*+" . iso-transl-plus-or-minus-sign) 114 ("*+" . [?±])
115 ("+" . iso-transl-plus-or-minus-sign) 115 ("+" . [?±])
116 (",," . iso-transl-cedilla) 116 (",," . [?¸])
117 (",C" . iso-transl-C-cedilla) 117 (",C" . [?Ç])
118 (",c" . iso-transl-c-cedilla) 118 (",c" . [?ç])
119 ("*-" . iso-transl-soft-hyphen) 119 ("*-" . [?­])
120 ("-" . iso-transl-soft-hyphen) 120 ("-" . [?­])
121 ("*." . iso-transl-middle-dot) 121 ("*." . [?·])
122 ("." . iso-transl-middle-dot) 122 ("." . [?·])
123 ("//" . iso-transl-division-sign) 123 ("//" . [?÷])
124 ("/A" . iso-transl-A-ring) 124 ("/A" . [?Å])
125 ("/E" . iso-transl-AE) 125 ("/E" . [?Æ])
126 ("/O" . iso-transl-O-slash) 126 ("/O" . [?Ø])
127 ("/a" . iso-transl-a-ring) 127 ("/a" . [?å])
128 ("/e" . iso-transl-ae) 128 ("/e" . [?æ])
129 ("/o" . iso-transl-o-slash) 129 ("/o" . [?ø])
130 ("1/2" . iso-transl-one-half) 130 ("1/2" . [?½])
131 ("1/4" . iso-transl-one-quarter) 131 ("1/4" . [?¼])
132 ("3/4" . iso-transl-three-quarters) 132 ("3/4" . [?¾])
133 ("*<" . iso-transl-angle-left) 133 ("*<" . [?«])
134 ("<" . iso-transl-angle-left) 134 ("<" . [?«])
135 ("*=" . iso-transl-macron) 135 ("*=" . [?¯])
136 ("=" . iso-transl-macron) 136 ("=" . [?¯])
137 ("*>" . iso-transl-angle-right) 137 ("*>" . [?»])
138 (">" . iso-transl-angle-right) 138 (">" . [?»])
139 ("*?" . iso-transl-inverted-question-mark) 139 ("*?" . [?¿])
140 ("?" . iso-transl-inverted-question-mark) 140 ("?" . [?¿])
141 ("*C" . iso-transl-copyright-sign) 141 ("*C" . [?©])
142 ("C" . iso-transl-copyright-sign) 142 ("C" . [?©])
143 ("*L" . iso-transl-pound-sign) 143 ("*L" . [?£])
144 ("L" . iso-transl-pound-sign) 144 ("L" . [?£])
145 ("*P" . iso-transl-pilcrow) 145 ("*P" . [?¶])
146 ("P" . iso-transl-pilcrow) 146 ("P" . [?¶])
147 ("*R" . iso-transl-registered-sign) 147 ("*R" . [?®])
148 ("R" . iso-transl-registered-sign) 148 ("R" . [?®])
149 ("*S" . iso-transl-section-sign) 149 ("*S" . [?§])
150 ("S" . iso-transl-section-sign) 150 ("S" . [?§])
151 ("*Y" . iso-transl-yen-sign) 151 ("*Y" . [?¥])
152 ("Y" . iso-transl-yen-sign) 152 ("Y" . [?¥])
153 ("^1" . iso-transl-superscript-1) 153 ("^1" . [?¹])
154 ("^2" . iso-transl-superscript-2) 154 ("^2" . [?²])
155 ("^3" . iso-transl-superscript-3) 155 ("^3" . [?³])
156 ("^A" . iso-transl-A-caret) 156 ("^A" . [?Â])
157 ("^E" . iso-transl-E-caret) 157 ("^E" . [?Ê])
158 ("^I" . iso-transl-I-caret) 158 ("^I" . [?Î])
159 ("^O" . iso-transl-O-caret) 159 ("^O" . [?Ô])
160 ("^U" . iso-transl-U-caret) 160 ("^U" . [?Û])
161 ("^a" . iso-transl-a-caret) 161 ("^a" . [?â])
162 ("^e" . iso-transl-e-caret) 162 ("^e" . [?ê])
163 ("^i" . iso-transl-i-caret) 163 ("^i" . [?î])
164 ("^o" . iso-transl-o-caret) 164 ("^o" . [?ô])
165 ("^u" . iso-transl-u-caret) 165 ("^u" . [?û])
166 ("_a" . iso-transl-ordinal-indicator-feminine) 166 ("_a" . [?ª])
167 ("_o" . iso-transl-ordinal-indicator-masculine) 167 ("_o" . [?º])
168 ("`A" . iso-transl-A-grave) 168 ("`A" . [?À])
169 ("`E" . iso-transl-E-grave) 169 ("`E" . [?È])
170 ("`I" . iso-transl-I-grave) 170 ("`I" . [?Ì])
171 ("`O" . iso-transl-O-grave) 171 ("`O" . [?Ò])
172 ("`U" . iso-transl-U-grave) 172 ("`U" . [?Ù])
173 ("`a" . iso-transl-a-grave) 173 ("`a" . [?à])
174 ("`e" . iso-transl-e-grave) 174 ("`e" . [?è])
175 ("`i" . iso-transl-i-grave) 175 ("`i" . [?ì])
176 ("`o" . iso-transl-o-grave) 176 ("`o" . [?ò])
177 ("`u" . iso-transl-u-grave) 177 ("`u" . [?ù])
178 ("*c" . iso-transl-cent-sign) 178 ("*c" . [?¢])
179 ("c" . iso-transl-cent-sign) 179 ("c" . [?¢])
180 ("*o" . iso-transl-degree-sign) 180 ("*o" . [?°])
181 ("o" . iso-transl-degree-sign) 181 ("o" . [?°])
182 ("*u" . iso-transl-micro-sign) 182 ("*u" . [?µ])
183 ("u" . iso-transl-micro-sign) 183 ("u" . [?µ])
184 ("*m" . iso-transl-micro-sign) 184 ("*m" . [?µ])
185 ("m" . iso-transl-micro-sign) 185 ("m" . [?µ])
186 ("*x" . iso-transl-multiplication-sign) 186 ("*x" . [?×])
187 ("x" . iso-transl-multiplication-sign) 187 ("x" . [?×])
188 ("*|" . iso-transl-broken-vertical-line) 188 ("*|" . [?¦])
189 ("|" . iso-transl-broken-vertical-line) 189 ("|" . [?¦])
190 ("~A" . iso-transl-A-tilde) 190 ("~A" . [?Ã])
191 ("~D" . iso-transl-D-stroke) 191 ("~D" . [?Ð])
192 ("~N" . iso-transl-N-tilde) 192 ("~N" . [?Ñ])
193 ("~O" . iso-transl-O-tilde) 193 ("~O" . [?Õ])
194 ("~T" . iso-transl-THORN) 194 ("~T" . [?Þ])
195 ("~a" . iso-transl-a-tilde) 195 ("~a" . [?ã])
196 ("~d" . iso-transl-d-stroke) 196 ("~d" . [?ð])
197 ("~n" . iso-transl-n-tilde) 197 ("~n" . [?ñ])
198 ("~o" . iso-transl-o-tilde) 198 ("~o" . [?õ])
199 ("~t" . iso-transl-thorn) 199 ("~t" . [?þ])
200 ("~~" . iso-transl-not-sign) 200 ("~~" . [?¬])
201 ("' " . "'") 201 ("' " . "'")
202 ("` " . "`") 202 ("` " . "`")
203 ("\" " . "\"") 203 ("\" " . "\"")
204 ("^ " . "^") 204 ("^ " . "^")
205 ("~ " . "~")) 205 ("~ " . "~"))
206 "Alist of character translations for entering ISO characters. 206 "Alist of character translations for entering ISO characters.
207 Each element has the form (STRING . VECTOR). 207 Each element has the form (STRING . VECTOR).
208 The sequence STRING of ASCII chars translates into the 208 The sequence STRING of ASCII chars translates into the
209 sequence VECTOR. (VECTOR is normally one character long.)") 209 sequence VECTOR. (VECTOR is normally one character long.)")
210
211 (defalias 'iso-transl-no-break-space [? ])
212 (defalias 'iso-transl-inverted-exclamation-mark [?¡])
213 (defalias 'iso-transl-cent-sign [?¢])
214 (defalias 'iso-transl-pound-sign [?£])
215 (defalias 'iso-transl-general-currency-sign [?¤])
216 (defalias 'iso-transl-yen-sign [?¥])
217 (defalias 'iso-transl-broken-vertical-line [?¦])
218 (defalias 'iso-transl-section-sign [?§])
219 (defalias 'iso-transl-diaeresis [?¨])
220 (defalias 'iso-transl-copyright-sign [?©])
221 (defalias 'iso-transl-ordinal-indicator-feminine [?ª])
222 (defalias 'iso-transl-angle-left [?«])
223 (defalias 'iso-transl-not-sign [?¬])
224 (defalias 'iso-transl-soft-hyphen [?­])
225 (defalias 'iso-transl-registered-sign [?®])
226 (defalias 'iso-transl-macron [?¯])
227 (defalias 'iso-transl-degree-sign [?°])
228 (defalias 'iso-transl-plus-or-minus-sign [?±])
229 (defalias 'iso-transl-superscript-2 [?²])
230 (defalias 'iso-transl-superscript-3 [?³])
231 (defalias 'iso-transl-acute-accent [?´])
232 (defalias 'iso-transl-micro-sign [?µ])
233 (defalias 'iso-transl-pilcrow [?¶])
234 (defalias 'iso-transl-middle-dot [?·])
235 (defalias 'iso-transl-cedilla [?¸])
236 (defalias 'iso-transl-superscript-1 [?¹])
237 (defalias 'iso-transl-ordinal-indicator-masculine [?º])
238 (defalias 'iso-transl-angle-right [?»])
239 (defalias 'iso-transl-one-quarter [?¼])
240 (defalias 'iso-transl-one-half [?½])
241 (defalias 'iso-transl-three-quarters [?¾])
242 (defalias 'iso-transl-inverted-question-mark [?¿])
243 (defalias 'iso-transl-A-grave [?À])
244 (defalias 'iso-transl-A-acute [?Á])
245 (defalias 'iso-transl-A-caret [?Â])
246 (defalias 'iso-transl-A-tilde [?Ã])
247 (defalias 'iso-transl-A-umlaut [?Ä])
248 (defalias 'iso-transl-A-ring [?Å])
249 (defalias 'iso-transl-AE [?Æ])
250 (defalias 'iso-transl-C-cedilla [?Ç])
251 (defalias 'iso-transl-E-grave [?È])
252 (defalias 'iso-transl-E-acute [?É])
253 (defalias 'iso-transl-E-caret [?Ê])
254 (defalias 'iso-transl-E-umlaut [?Ë])
255 (defalias 'iso-transl-I-grave [?Ì])
256 (defalias 'iso-transl-I-acute [?Í])
257 (defalias 'iso-transl-I-caret [?Î])
258 (defalias 'iso-transl-I-umlaut [?Ï])
259 (defalias 'iso-transl-D-stroke [?Ð])
260 (defalias 'iso-transl-N-tilde [?Ñ])
261 (defalias 'iso-transl-O-grave [?Ò])
262 (defalias 'iso-transl-O-acute [?Ó])
263 (defalias 'iso-transl-O-caret [?Ô])
264 (defalias 'iso-transl-O-tilde [?Õ])
265 (defalias 'iso-transl-O-umlaut [?Ö])
266 (defalias 'iso-transl-multiplication-sign [?×])
267 (defalias 'iso-transl-O-slash [?Ø])
268 (defalias 'iso-transl-U-grave [?Ù])
269 (defalias 'iso-transl-U-acute [?Ú])
270 (defalias 'iso-transl-U-caret [?Û])
271 (defalias 'iso-transl-U-umlaut [?Ü])
272 (defalias 'iso-transl-Y-acute [?Ý])
273 (defalias 'iso-transl-THORN [?Þ])
274 (defalias 'iso-transl-ss [?ß])
275 (defalias 'iso-transl-a-grave [?à])
276 (defalias 'iso-transl-a-acute [?á])
277 (defalias 'iso-transl-a-caret [?â])
278 (defalias 'iso-transl-a-tilde [?ã])
279 (defalias 'iso-transl-a-umlaut [?ä])
280 (defalias 'iso-transl-a-ring [?å])
281 (defalias 'iso-transl-ae [?æ])
282 (defalias 'iso-transl-c-cedilla [?ç])
283 (defalias 'iso-transl-e-grave [?è])
284 (defalias 'iso-transl-e-acute [?é])
285 (defalias 'iso-transl-e-caret [?ê])
286 (defalias 'iso-transl-e-umlaut [?ë])
287 (defalias 'iso-transl-i-grave [?ì])
288 (defalias 'iso-transl-i-acute [?í])
289 (defalias 'iso-transl-i-caret [?î])
290 (defalias 'iso-transl-i-umlaut [?ï])
291 (defalias 'iso-transl-d-stroke [?ð])
292 (defalias 'iso-transl-n-tilde [?ñ])
293 (defalias 'iso-transl-o-grave [?ò])
294 (defalias 'iso-transl-o-acute [?ó])
295 (defalias 'iso-transl-o-caret [?ô])
296 (defalias 'iso-transl-o-tilde [?õ])
297 (defalias 'iso-transl-o-umlaut [?ö])
298 (defalias 'iso-transl-division-sign [?÷])
299 (defalias 'iso-transl-o-slash [?ø])
300 (defalias 'iso-transl-u-grave [?ù])
301 (defalias 'iso-transl-u-acute [?ú])
302 (defalias 'iso-transl-u-caret [?û])
303 (defalias 'iso-transl-u-umlaut [?ü])
304 (defalias 'iso-transl-y-acute [?ý])
305 (defalias 'iso-transl-thorn [?þ])
306 (defalias 'iso-transl-y-umlaut [?ÿ])
307 210
308 ;; Language-specific translation lists. 211 ;; Language-specific translation lists.
309 (defvar iso-transl-language-alist 212 (defvar iso-transl-language-alist
310 '(("Esperanto" 213 '(("Esperanto"
311 ("C" . [?Æ]) 214 ("C" . [?Æ])