/[emacs]/emacs/lisp/international/iso-transl.el
ViewVC logotype

Diff of /emacs/lisp/international/iso-transl.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by gerd, Wed Oct 10 16:35:43 2001 UTC revision 1.30 by fx, Fri Dec 7 14:56:44 2001 UTC
# Line 1  Line 1 
1  ;;; iso-transl.el --- keyboard input definitions for ISO 8859-1  ;;; iso-transl.el --- keyboard input definitions for ISO 8859-1  -*- coding: iso-8859-1 -*-
2    
3  ;; Copyright (C) 1987, 1993, 1994, 1995, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1987, 1993, 1994, 1995, 2001 Free Software Foundation, Inc.
4    
# Line 208  Each element has the form (STRING . VECT Line 208  Each element has the form (STRING . VECT
208  The sequence STRING of ASCII chars translates into the  The sequence STRING of ASCII chars translates into the
209  sequence VECTOR.  (VECTOR is normally one character long.)")  sequence VECTOR.  (VECTOR is normally one character long.)")
210    
211  (defalias 'iso-transl-no-break-space [160])  (defalias 'iso-transl-no-break-space [? ])
212  (defalias 'iso-transl-inverted-exclamation-mark [161])  (defalias 'iso-transl-inverted-exclamation-mark [?¡])
213  (defalias 'iso-transl-cent-sign [162])  (defalias 'iso-transl-cent-sign [?¢])
214  (defalias 'iso-transl-pound-sign [163])  (defalias 'iso-transl-pound-sign [?£])
215  (defalias 'iso-transl-general-currency-sign [164])  (defalias 'iso-transl-general-currency-sign [?¤])
216  (defalias 'iso-transl-yen-sign [165])  (defalias 'iso-transl-yen-sign [?¥])
217  (defalias 'iso-transl-broken-vertical-line [166])  (defalias 'iso-transl-broken-vertical-line [?¦])
218  (defalias 'iso-transl-section-sign [167])  (defalias 'iso-transl-section-sign [?§])
219  (defalias 'iso-transl-diaeresis [168])  (defalias 'iso-transl-diaeresis [?¨])
220  (defalias 'iso-transl-copyright-sign [169])  (defalias 'iso-transl-copyright-sign [?©])
221  (defalias 'iso-transl-ordinal-indicator-feminine [170])  (defalias 'iso-transl-ordinal-indicator-feminine [?ª])
222  (defalias 'iso-transl-angle-left [171])  (defalias 'iso-transl-angle-left [?«])
223  (defalias 'iso-transl-not-sign [172])  (defalias 'iso-transl-not-sign [?¬])
224  (defalias 'iso-transl-soft-hyphen [173])  (defalias 'iso-transl-soft-hyphen [?­])
225  (defalias 'iso-transl-registered-sign [174])  (defalias 'iso-transl-registered-sign [?®])
226  (defalias 'iso-transl-macron [175])  (defalias 'iso-transl-macron [?¯])
227  (defalias 'iso-transl-degree-sign [176])  (defalias 'iso-transl-degree-sign [?°])
228  (defalias 'iso-transl-plus-or-minus-sign [177])  (defalias 'iso-transl-plus-or-minus-sign [?±])
229  (defalias 'iso-transl-superscript-2 [178])  (defalias 'iso-transl-superscript-2 [?²])
230  (defalias 'iso-transl-superscript-3 [179])  (defalias 'iso-transl-superscript-3 [?³])
231  (defalias 'iso-transl-acute-accent [180])  (defalias 'iso-transl-acute-accent [?´])
232  (defalias 'iso-transl-micro-sign [181])  (defalias 'iso-transl-micro-sign [?µ])
233  (defalias 'iso-transl-pilcrow [182])  (defalias 'iso-transl-pilcrow [?¶])
234  (defalias 'iso-transl-middle-dot [183])  (defalias 'iso-transl-middle-dot [?·])
235  (defalias 'iso-transl-cedilla [184])  (defalias 'iso-transl-cedilla [?¸])
236  (defalias 'iso-transl-superscript-1 [185])  (defalias 'iso-transl-superscript-1 [?¹])
237  (defalias 'iso-transl-ordinal-indicator-masculine [186])  (defalias 'iso-transl-ordinal-indicator-masculine [?º])
238  (defalias 'iso-transl-angle-right [187])  (defalias 'iso-transl-angle-right [?»])
239  (defalias 'iso-transl-one-quarter [188])  (defalias 'iso-transl-one-quarter [?¼])
240  (defalias 'iso-transl-one-half [189])  (defalias 'iso-transl-one-half [?½])
241  (defalias 'iso-transl-three-quarters [190])  (defalias 'iso-transl-three-quarters [?¾])
242  (defalias 'iso-transl-inverted-question-mark [191])  (defalias 'iso-transl-inverted-question-mark [?¿])
243  (defalias 'iso-transl-A-grave [192])  (defalias 'iso-transl-A-grave [?À])
244  (defalias 'iso-transl-A-acute [193])  (defalias 'iso-transl-A-acute [?Á])
245  (defalias 'iso-transl-A-caret [194])  (defalias 'iso-transl-A-caret [?Â])
246  (defalias 'iso-transl-A-tilde [195])  (defalias 'iso-transl-A-tilde [?Ã])
247  (defalias 'iso-transl-A-umlaut [196])  (defalias 'iso-transl-A-umlaut [?Ä])
248  (defalias 'iso-transl-A-ring [197])  (defalias 'iso-transl-A-ring [?Å])
249  (defalias 'iso-transl-AE [198])  (defalias 'iso-transl-AE [?Æ])
250  (defalias 'iso-transl-C-cedilla [199])  (defalias 'iso-transl-C-cedilla [?Ç])
251  (defalias 'iso-transl-E-grave [200])  (defalias 'iso-transl-E-grave [?È])
252  (defalias 'iso-transl-E-acute [201])  (defalias 'iso-transl-E-acute [?É])
253  (defalias 'iso-transl-E-caret [202])  (defalias 'iso-transl-E-caret [?Ê])
254  (defalias 'iso-transl-E-umlaut [203])  (defalias 'iso-transl-E-umlaut [?Ë])
255  (defalias 'iso-transl-I-grave [204])  (defalias 'iso-transl-I-grave [?Ì])
256  (defalias 'iso-transl-I-acute [205])  (defalias 'iso-transl-I-acute [?Í])
257  (defalias 'iso-transl-I-caret [206])  (defalias 'iso-transl-I-caret [?Î])
258  (defalias 'iso-transl-I-umlaut [207])  (defalias 'iso-transl-I-umlaut [?Ï])
259  (defalias 'iso-transl-D-stroke [208])  (defalias 'iso-transl-D-stroke [?Ð])
260  (defalias 'iso-transl-N-tilde [209])  (defalias 'iso-transl-N-tilde [?Ñ])
261  (defalias 'iso-transl-O-grave [210])  (defalias 'iso-transl-O-grave [?Ò])
262  (defalias 'iso-transl-O-acute [211])  (defalias 'iso-transl-O-acute [?Ó])
263  (defalias 'iso-transl-O-caret [212])  (defalias 'iso-transl-O-caret [?Ô])
264  (defalias 'iso-transl-O-tilde [213])  (defalias 'iso-transl-O-tilde [?Õ])
265  (defalias 'iso-transl-O-umlaut [214])  (defalias 'iso-transl-O-umlaut [?Ö])
266  (defalias 'iso-transl-multiplication-sign [215])  (defalias 'iso-transl-multiplication-sign [?×])
267  (defalias 'iso-transl-O-slash [216])  (defalias 'iso-transl-O-slash [?Ø])
268  (defalias 'iso-transl-U-grave [217])  (defalias 'iso-transl-U-grave [?Ù])
269  (defalias 'iso-transl-U-acute [218])  (defalias 'iso-transl-U-acute [?Ú])
270  (defalias 'iso-transl-U-caret [219])  (defalias 'iso-transl-U-caret [?Û])
271  (defalias 'iso-transl-U-umlaut [220])  (defalias 'iso-transl-U-umlaut [?Ü])
272  (defalias 'iso-transl-Y-acute [221])  (defalias 'iso-transl-Y-acute [?Ý])
273  (defalias 'iso-transl-THORN [222])  (defalias 'iso-transl-THORN [?Þ])
274  (defalias 'iso-transl-ss [223])  (defalias 'iso-transl-ss [?ß])
275  (defalias 'iso-transl-a-grave [224])  (defalias 'iso-transl-a-grave [?à])
276  (defalias 'iso-transl-a-acute [225])  (defalias 'iso-transl-a-acute [?á])
277  (defalias 'iso-transl-a-caret [226])  (defalias 'iso-transl-a-caret [?â])
278  (defalias 'iso-transl-a-tilde [227])  (defalias 'iso-transl-a-tilde [?ã])
279  (defalias 'iso-transl-a-umlaut [228])  (defalias 'iso-transl-a-umlaut [?ä])
280  (defalias 'iso-transl-a-ring [229])  (defalias 'iso-transl-a-ring [?å])
281  (defalias 'iso-transl-ae [230])  (defalias 'iso-transl-ae [?æ])
282  (defalias 'iso-transl-c-cedilla [231])  (defalias 'iso-transl-c-cedilla [?ç])
283  (defalias 'iso-transl-e-grave [232])  (defalias 'iso-transl-e-grave [?è])
284  (defalias 'iso-transl-e-acute [233])  (defalias 'iso-transl-e-acute [?é])
285  (defalias 'iso-transl-e-caret [234])  (defalias 'iso-transl-e-caret [?ê])
286  (defalias 'iso-transl-e-umlaut [235])  (defalias 'iso-transl-e-umlaut [?ë])
287  (defalias 'iso-transl-i-grave [236])  (defalias 'iso-transl-i-grave [?ì])
288  (defalias 'iso-transl-i-acute [237])  (defalias 'iso-transl-i-acute [?í])
289  (defalias 'iso-transl-i-caret [238])  (defalias 'iso-transl-i-caret [?î])
290  (defalias 'iso-transl-i-umlaut [239])  (defalias 'iso-transl-i-umlaut [?ï])
291  (defalias 'iso-transl-d-stroke [240])  (defalias 'iso-transl-d-stroke [?ð])
292  (defalias 'iso-transl-n-tilde [241])  (defalias 'iso-transl-n-tilde [?ñ])
293  (defalias 'iso-transl-o-grave [242])  (defalias 'iso-transl-o-grave [?ò])
294  (defalias 'iso-transl-o-acute [243])  (defalias 'iso-transl-o-acute [?ó])
295  (defalias 'iso-transl-o-caret [244])  (defalias 'iso-transl-o-caret [?ô])
296  (defalias 'iso-transl-o-tilde [245])  (defalias 'iso-transl-o-tilde [?õ])
297  (defalias 'iso-transl-o-umlaut [246])  (defalias 'iso-transl-o-umlaut [?ö])
298  (defalias 'iso-transl-division-sign [247])  (defalias 'iso-transl-division-sign [?÷])
299  (defalias 'iso-transl-o-slash [248])  (defalias 'iso-transl-o-slash [?ø])
300  (defalias 'iso-transl-u-grave [249])  (defalias 'iso-transl-u-grave [?ù])
301  (defalias 'iso-transl-u-acute [250])  (defalias 'iso-transl-u-acute [?ú])
302  (defalias 'iso-transl-u-caret [251])  (defalias 'iso-transl-u-caret [?û])
303  (defalias 'iso-transl-u-umlaut [252])  (defalias 'iso-transl-u-umlaut [?ü])
304  (defalias 'iso-transl-y-acute [253])  (defalias 'iso-transl-y-acute [?ý])
305  (defalias 'iso-transl-thorn [254])  (defalias 'iso-transl-thorn [?þ])
306  (defalias 'iso-transl-y-umlaut [255])  (defalias 'iso-transl-y-umlaut [?ÿ])
307    
308  ;; Language-specific translation lists.  ;; Language-specific translation lists.
309  (defvar iso-transl-language-alist  (defvar iso-transl-language-alist
310    '(("Esperanto"    '(("Esperanto"
311       ("C"  . [198])       ("C"  . [?Æ])
312       ("G"  . [216])       ("G"  . [?Ø])
313       ("H"  . [166])       ("H"  . [?¦])
314       ("J"  . [172])       ("J"  . [?¬])
315       ("S"  . [222])       ("S"  . [?Þ])
316       ("U"  . [221])       ("U"  . [?Ý])
317       ("c"  . [230])       ("c"  . [?æ])
318       ("g"  . [248])       ("g"  . [?ø])
319       ("h"  . [182])       ("h"  . [?¶])
320       ("j"  . [188])       ("j"  . [?¼])
321       ("s"  . [254])       ("s"  . [?þ])
322       ("u"  . [253]))       ("u"  . [?ý]))
323      ("French"      ("French"
324       ("C"  . [199])       ("C"  . [?Ç])
325       ("c"  . [231]))       ("c"  . [?ç]))
326      ("German"      ("German"
327       ("A"  . [196])       ("A"  . [?Ä])
328       ("O"  . [214])       ("O"  . [?Ö])
329       ("U"  . [220])       ("U"  . [?Ü])
330       ("a"  . [228])       ("a"  . [?ä])
331       ("o"  . [246])       ("o"  . [?ö])
332       ("s"  . [223])       ("s"  . [?ß])
333       ("u"  . [252]))       ("u"  . [?ü]))
334      ("Portuguese"      ("Portuguese"
335       ("C"  . [199])       ("C"  . [?Ç])
336       ("c"  . [231]))       ("c"  . [?ç]))
337      ("Spanish"      ("Spanish"
338       ("!"  . [161])       ("!"  . [?¡])
339       ("?"  . [191])       ("?"  . [?¿])
340       ("N"  . [209])       ("N"  . [?Ñ])
341       ("n"  . [241]))))       ("n"  . [?ñ]))))
342    
343  (defvar iso-transl-ctl-x-8-map nil  (defvar iso-transl-ctl-x-8-map nil
344    "Keymap for C-x 8 prefix.")    "Keymap for C-x 8 prefix.")

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26