Mercurial > emacs

changeset 41877:c1368417eb85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Insert Latin-1 characters, not unibyte codes.
author Dave Love <fx@gnu.org>
date Fri, 07 Dec 2001 14:56:44 +0000
parents 090ae4bf745e
children 983cbc381841
files lisp/international/iso-transl.el
diffstat 1 files changed, 124 insertions(+), 124 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/iso-transl.el	Fri Dec 07 14:49:08 2001 +0000
+++ b/lisp/international/iso-transl.el	Fri Dec 07 14:56:44 2001 +0000
@@ -1,4 +1,4 @@
-;;; iso-transl.el --- keyboard input definitions for ISO 8859-1
+;;; iso-transl.el --- keyboard input definitions for ISO 8859-1  -*- coding: iso-8859-1 -*-
 
 ;; Copyright (C) 1987, 1993, 1994, 1995, 2001 Free Software Foundation, Inc.
 
@@ -208,137 +208,137 @@
 The sequence STRING of ASCII chars translates into the
 sequence VECTOR.  (VECTOR is normally one character long.)")
 
-(defalias 'iso-transl-no-break-space [160])
-(defalias 'iso-transl-inverted-exclamation-mark [161])
-(defalias 'iso-transl-cent-sign [162])
-(defalias 'iso-transl-pound-sign [163])
-(defalias 'iso-transl-general-currency-sign [164])
-(defalias 'iso-transl-yen-sign [165])
-(defalias 'iso-transl-broken-vertical-line [166])
-(defalias 'iso-transl-section-sign [167])
-(defalias 'iso-transl-diaeresis [168])
-(defalias 'iso-transl-copyright-sign [169])
-(defalias 'iso-transl-ordinal-indicator-feminine [170])
-(defalias 'iso-transl-angle-left [171])
-(defalias 'iso-transl-not-sign [172])
-(defalias 'iso-transl-soft-hyphen [173])
-(defalias 'iso-transl-registered-sign [174])
-(defalias 'iso-transl-macron [175])
-(defalias 'iso-transl-degree-sign [176])
-(defalias 'iso-transl-plus-or-minus-sign [177])
-(defalias 'iso-transl-superscript-2 [178])
-(defalias 'iso-transl-superscript-3 [179])
-(defalias 'iso-transl-acute-accent [180])
-(defalias 'iso-transl-micro-sign [181])
-(defalias 'iso-transl-pilcrow [182])
-(defalias 'iso-transl-middle-dot [183])
-(defalias 'iso-transl-cedilla [184])
-(defalias 'iso-transl-superscript-1 [185])
-(defalias 'iso-transl-ordinal-indicator-masculine [186])
-(defalias 'iso-transl-angle-right [187])
-(defalias 'iso-transl-one-quarter [188])
-(defalias 'iso-transl-one-half [189])
-(defalias 'iso-transl-three-quarters [190])
-(defalias 'iso-transl-inverted-question-mark [191])
-(defalias 'iso-transl-A-grave [192])
-(defalias 'iso-transl-A-acute [193])
-(defalias 'iso-transl-A-caret [194])
-(defalias 'iso-transl-A-tilde [195])
-(defalias 'iso-transl-A-umlaut [196])
-(defalias 'iso-transl-A-ring [197])
-(defalias 'iso-transl-AE [198])
-(defalias 'iso-transl-C-cedilla [199])
-(defalias 'iso-transl-E-grave [200])
-(defalias 'iso-transl-E-acute [201])
-(defalias 'iso-transl-E-caret [202])
-(defalias 'iso-transl-E-umlaut [203])
-(defalias 'iso-transl-I-grave [204])
-(defalias 'iso-transl-I-acute [205])
-(defalias 'iso-transl-I-caret [206])
-(defalias 'iso-transl-I-umlaut [207])
-(defalias 'iso-transl-D-stroke [208])
-(defalias 'iso-transl-N-tilde [209])
-(defalias 'iso-transl-O-grave [210])
-(defalias 'iso-transl-O-acute [211])
-(defalias 'iso-transl-O-caret [212])
-(defalias 'iso-transl-O-tilde [213])
-(defalias 'iso-transl-O-umlaut [214])
-(defalias 'iso-transl-multiplication-sign [215])
-(defalias 'iso-transl-O-slash [216])
-(defalias 'iso-transl-U-grave [217])
-(defalias 'iso-transl-U-acute [218])
-(defalias 'iso-transl-U-caret [219])
-(defalias 'iso-transl-U-umlaut [220])
-(defalias 'iso-transl-Y-acute [221])
-(defalias 'iso-transl-THORN [222])
-(defalias 'iso-transl-ss [223])
-(defalias 'iso-transl-a-grave [224])
-(defalias 'iso-transl-a-acute [225])
-(defalias 'iso-transl-a-caret [226])
-(defalias 'iso-transl-a-tilde [227])
-(defalias 'iso-transl-a-umlaut [228])
-(defalias 'iso-transl-a-ring [229])
-(defalias 'iso-transl-ae [230])
-(defalias 'iso-transl-c-cedilla [231])
-(defalias 'iso-transl-e-grave [232])
-(defalias 'iso-transl-e-acute [233])
-(defalias 'iso-transl-e-caret [234])
-(defalias 'iso-transl-e-umlaut [235])
-(defalias 'iso-transl-i-grave [236])
-(defalias 'iso-transl-i-acute [237])
-(defalias 'iso-transl-i-caret [238])
-(defalias 'iso-transl-i-umlaut [239])
-(defalias 'iso-transl-d-stroke [240])
-(defalias 'iso-transl-n-tilde [241])
-(defalias 'iso-transl-o-grave [242])
-(defalias 'iso-transl-o-acute [243])
-(defalias 'iso-transl-o-caret [244])
-(defalias 'iso-transl-o-tilde [245])
-(defalias 'iso-transl-o-umlaut [246])
-(defalias 'iso-transl-division-sign [247])
-(defalias 'iso-transl-o-slash [248])
-(defalias 'iso-transl-u-grave [249])
-(defalias 'iso-transl-u-acute [250])
-(defalias 'iso-transl-u-caret [251])
-(defalias 'iso-transl-u-umlaut [252])
-(defalias 'iso-transl-y-acute [253])
-(defalias 'iso-transl-thorn [254])
-(defalias 'iso-transl-y-umlaut [255])
+(defalias 'iso-transl-no-break-space [? ])
+(defalias 'iso-transl-inverted-exclamation-mark [?¡])
+(defalias 'iso-transl-cent-sign [?¢])
+(defalias 'iso-transl-pound-sign [?£])
+(defalias 'iso-transl-general-currency-sign [?¤])
+(defalias 'iso-transl-yen-sign [?¥])
+(defalias 'iso-transl-broken-vertical-line [?¦])
+(defalias 'iso-transl-section-sign [?§])
+(defalias 'iso-transl-diaeresis [?¨])
+(defalias 'iso-transl-copyright-sign [?©])
+(defalias 'iso-transl-ordinal-indicator-feminine [?ª])
+(defalias 'iso-transl-angle-left [?«])
+(defalias 'iso-transl-not-sign [?¬])
+(defalias 'iso-transl-soft-hyphen [?­])
+(defalias 'iso-transl-registered-sign [?®])
+(defalias 'iso-transl-macron [?¯])
+(defalias 'iso-transl-degree-sign [?°])
+(defalias 'iso-transl-plus-or-minus-sign [?±])
+(defalias 'iso-transl-superscript-2 [?²])
+(defalias 'iso-transl-superscript-3 [?³])
+(defalias 'iso-transl-acute-accent [?´])
+(defalias 'iso-transl-micro-sign [?µ])
+(defalias 'iso-transl-pilcrow [?¶])
+(defalias 'iso-transl-middle-dot [?·])
+(defalias 'iso-transl-cedilla [?¸])
+(defalias 'iso-transl-superscript-1 [?¹])
+(defalias 'iso-transl-ordinal-indicator-masculine [?º])
+(defalias 'iso-transl-angle-right [?»])
+(defalias 'iso-transl-one-quarter [?¼])
+(defalias 'iso-transl-one-half [?½])
+(defalias 'iso-transl-three-quarters [?¾])
+(defalias 'iso-transl-inverted-question-mark [?¿])
+(defalias 'iso-transl-A-grave [?À])
+(defalias 'iso-transl-A-acute [?Á])
+(defalias 'iso-transl-A-caret [?Â])
+(defalias 'iso-transl-A-tilde [?Ã])
+(defalias 'iso-transl-A-umlaut [?Ä])
+(defalias 'iso-transl-A-ring [?Å])
+(defalias 'iso-transl-AE [?Æ])
+(defalias 'iso-transl-C-cedilla [?Ç])
+(defalias 'iso-transl-E-grave [?È])
+(defalias 'iso-transl-E-acute [?É])
+(defalias 'iso-transl-E-caret [?Ê])
+(defalias 'iso-transl-E-umlaut [?Ë])
+(defalias 'iso-transl-I-grave [?Ì])
+(defalias 'iso-transl-I-acute [?Í])
+(defalias 'iso-transl-I-caret [?Î])
+(defalias 'iso-transl-I-umlaut [?Ï])
+(defalias 'iso-transl-D-stroke [?Ð])
+(defalias 'iso-transl-N-tilde [?Ñ])
+(defalias 'iso-transl-O-grave [?Ò])
+(defalias 'iso-transl-O-acute [?Ó])
+(defalias 'iso-transl-O-caret [?Ô])
+(defalias 'iso-transl-O-tilde [?Õ])
+(defalias 'iso-transl-O-umlaut [?Ö])
+(defalias 'iso-transl-multiplication-sign [?×])
+(defalias 'iso-transl-O-slash [?Ø])
+(defalias 'iso-transl-U-grave [?Ù])
+(defalias 'iso-transl-U-acute [?Ú])
+(defalias 'iso-transl-U-caret [?Û])
+(defalias 'iso-transl-U-umlaut [?Ü])
+(defalias 'iso-transl-Y-acute [?Ý])
+(defalias 'iso-transl-THORN [?Þ])
+(defalias 'iso-transl-ss [?ß])
+(defalias 'iso-transl-a-grave [?à])
+(defalias 'iso-transl-a-acute [?á])
+(defalias 'iso-transl-a-caret [?â])
+(defalias 'iso-transl-a-tilde [?ã])
+(defalias 'iso-transl-a-umlaut [?ä])
+(defalias 'iso-transl-a-ring [?å])
+(defalias 'iso-transl-ae [?æ])
+(defalias 'iso-transl-c-cedilla [?ç])
+(defalias 'iso-transl-e-grave [?è])
+(defalias 'iso-transl-e-acute [?é])
+(defalias 'iso-transl-e-caret [?ê])
+(defalias 'iso-transl-e-umlaut [?ë])
+(defalias 'iso-transl-i-grave [?ì])
+(defalias 'iso-transl-i-acute [?í])
+(defalias 'iso-transl-i-caret [?î])
+(defalias 'iso-transl-i-umlaut [?ï])
+(defalias 'iso-transl-d-stroke [?ð])
+(defalias 'iso-transl-n-tilde [?ñ])
+(defalias 'iso-transl-o-grave [?ò])
+(defalias 'iso-transl-o-acute [?ó])
+(defalias 'iso-transl-o-caret [?ô])
+(defalias 'iso-transl-o-tilde [?õ])
+(defalias 'iso-transl-o-umlaut [?ö])
+(defalias 'iso-transl-division-sign [?÷])
+(defalias 'iso-transl-o-slash [?ø])
+(defalias 'iso-transl-u-grave [?ù])
+(defalias 'iso-transl-u-acute [?ú])
+(defalias 'iso-transl-u-caret [?û])
+(defalias 'iso-transl-u-umlaut [?ü])
+(defalias 'iso-transl-y-acute [?ý])
+(defalias 'iso-transl-thorn [?þ])
+(defalias 'iso-transl-y-umlaut [?ÿ])
 
 ;; Language-specific translation lists.
 (defvar iso-transl-language-alist
   '(("Esperanto"
-     ("C"  . [198])
-     ("G"  . [216])
-     ("H"  . [166])
-     ("J"  . [172])
-     ("S"  . [222])
-     ("U"  . [221])
-     ("c"  . [230])
-     ("g"  . [248])
-     ("h"  . [182])
-     ("j"  . [188])
-     ("s"  . [254])
-     ("u"  . [253]))
+     ("C"  . [?Æ])
+     ("G"  . [?Ø])
+     ("H"  . [?¦])
+     ("J"  . [?¬])
+     ("S"  . [?Þ])
+     ("U"  . [?Ý])
+     ("c"  . [?æ])
+     ("g"  . [?ø])
+     ("h"  . [?¶])
+     ("j"  . [?¼])
+     ("s"  . [?þ])
+     ("u"  . [?ý]))
     ("French"
-     ("C"  . [199])
-     ("c"  . [231]))
+     ("C"  . [?Ç])
+     ("c"  . [?ç]))
     ("German"
-     ("A"  . [196])
-     ("O"  . [214]) 
-     ("U"  . [220])
-     ("a"  . [228])
-     ("o"  . [246])
-     ("s"  . [223])
-     ("u"  . [252]))
+     ("A"  . [?Ä])
+     ("O"  . [?Ö]) 
+     ("U"  . [?Ü])
+     ("a"  . [?ä])
+     ("o"  . [?ö])
+     ("s"  . [?ß])
+     ("u"  . [?ü]))
     ("Portuguese"
-     ("C"  . [199])
-     ("c"  . [231]))
+     ("C"  . [?Ç])
+     ("c"  . [?ç]))
     ("Spanish"
-     ("!"  . [161])
-     ("?"  . [191])
-     ("N"  . [209])
-     ("n"  . [241]))))
+     ("!"  . [?¡])
+     ("?"  . [?¿])
+     ("N"  . [?Ñ])
+     ("n"  . [?ñ]))))
 
 (defvar iso-transl-ctl-x-8-map nil
   "Keymap for C-x 8 prefix.")