/[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.30 by fx, Fri Dec 7 14:56:44 2001 UTC revision 1.31 by rms, Fri Dec 28 22:27:37 2001 UTC
# Line 79  Line 79 
79  ;; writing the translation directly here.  ;; writing the translation directly here.
80  ;; That is for the sake of C-x 8 C-h.  ;; That is for the sake of C-x 8 C-h.
81  (defvar iso-transl-char-map  (defvar iso-transl-char-map
82    '(("* "   . iso-transl-no-break-space)    '(("* "   . [? ])
83      (" "    . iso-transl-no-break-space)      (" "    . [? ])
84      ("*!"   . iso-transl-inverted-exclamation-mark)      ("*!"   . [?¡])
85      ("!"    . iso-transl-inverted-exclamation-mark)      ("!"    . [?¡])
86      ("\"\"" . iso-transl-diaeresis)      ("\"\"" . [?¨])
87      ("\"A"  . iso-transl-A-umlaut)      ("\"A"  . [?Ä])
88      ("\"E"  . iso-transl-E-umlaut)      ("\"E"  . [?Ë])
89      ("\"I"  . iso-transl-I-umlaut)      ("\"I"  . [?Ï])
90      ("\"O"  . iso-transl-O-umlaut)      ("\"O"  . [?Ö])
91      ("\"U"  . iso-transl-U-umlaut)      ("\"U"  . [?Ü])
92      ("\"a"  . iso-transl-a-umlaut)      ("\"a"  . [?ä])
93      ("\"e"  . iso-transl-e-umlaut)      ("\"e"  . [?ë])
94      ("\"i"  . iso-transl-i-umlaut)      ("\"i"  . [?ï])
95      ("\"o"  . iso-transl-o-umlaut)      ("\"o"  . [?ö])
96      ("\"s"  . iso-transl-ss)      ("\"s"  . [?ß])
97      ("\"u"  . iso-transl-u-umlaut)      ("\"u"  . [?ü])
98      ("\"y"  . iso-transl-y-umlaut)      ("\"y"  . [?ÿ])
99      ("''"   . iso-transl-acute-accent)      ("''"   . [?´])
100      ("'A"   . iso-transl-A-acute)      ("'A"   . [?Á])
101      ("'E"   . iso-transl-E-acute)      ("'E"   . [?É])
102      ("'I"   . iso-transl-I-acute)      ("'I"   . [?Í])
103      ("'O"   . iso-transl-O-acute)      ("'O"   . [?Ó])
104      ("'U"   . iso-transl-U-acute)      ("'U"   . [?Ú])
105      ("'Y"   . iso-transl-Y-acute)      ("'Y"   . [?Ý])
106      ("'a"   . iso-transl-a-acute)      ("'a"   . [?á])
107      ("'e"   . iso-transl-e-acute)      ("'e"   . [?é])
108      ("'i"   . iso-transl-i-acute)      ("'i"   . [?í])
109      ("'o"   . iso-transl-o-acute)      ("'o"   . [?ó])
110      ("'u"   . iso-transl-u-acute)      ("'u"   . [?ú])
111      ("'y"   . iso-transl-y-acute)      ("'y"   . [?ý])
112      ("*$"   . iso-transl-general-currency-sign)      ("*$"   . [?¤])
113      ("$"    . iso-transl-general-currency-sign)      ("$"    . [?¤])
114      ("*+"   . iso-transl-plus-or-minus-sign)      ("*+"   . [?±])
115      ("+"    . iso-transl-plus-or-minus-sign)      ("+"    . [?±])
116      (",,"   . iso-transl-cedilla)      (",,"   . [?¸])
117      (",C"   . iso-transl-C-cedilla)      (",C"   . [?Ç])
118      (",c"   . iso-transl-c-cedilla)      (",c"   . [?ç])
119      ("*-"   . iso-transl-soft-hyphen)      ("*-"   . [?­])
120      ("-"    . iso-transl-soft-hyphen)      ("-"    . [?­])
121      ("*."   . iso-transl-middle-dot)      ("*."   . [?·])
122      ("."    . iso-transl-middle-dot)      ("."    . [?·])
123      ("//"   . iso-transl-division-sign)      ("//"   . [?÷])
124      ("/A"   . iso-transl-A-ring)      ("/A"   . [?Å])
125      ("/E"   . iso-transl-AE)      ("/E"   . [?Æ])
126      ("/O"   . iso-transl-O-slash)      ("/O"   . [?Ø])
127      ("/a"   . iso-transl-a-ring)      ("/a"   . [?å])
128      ("/e"   . iso-transl-ae)      ("/e"   . [?æ])
129      ("/o"   . iso-transl-o-slash)      ("/o"   . [?ø])
130      ("1/2"  . iso-transl-one-half)      ("1/2"  . [?½])
131      ("1/4"  . iso-transl-one-quarter)      ("1/4"  . [?¼])
132      ("3/4"  . iso-transl-three-quarters)      ("3/4"  . [?¾])
133      ("*<"   . iso-transl-angle-left)      ("*<"   . [?«])
134      ("<"    . iso-transl-angle-left)      ("<"    . [?«])
135      ("*="   . iso-transl-macron)      ("*="   . [?¯])
136      ("="    . iso-transl-macron)      ("="    . [?¯])
137      ("*>"   . iso-transl-angle-right)      ("*>"   . [?»])
138      (">"    . iso-transl-angle-right)      (">"    . [?»])
139      ("*?"   . iso-transl-inverted-question-mark)      ("*?"   . [?¿])
140      ("?"    . iso-transl-inverted-question-mark)      ("?"    . [?¿])
141      ("*C"   . iso-transl-copyright-sign)      ("*C"   . [?©])
142      ("C"    . iso-transl-copyright-sign)      ("C"    . [?©])
143      ("*L"   . iso-transl-pound-sign)      ("*L"   . [?£])
144      ("L"    . iso-transl-pound-sign)      ("L"    . [?£])
145      ("*P"   . iso-transl-pilcrow)      ("*P"   . [?¶])
146      ("P"    . iso-transl-pilcrow)      ("P"    . [?¶])
147      ("*R"   . iso-transl-registered-sign)      ("*R"   . [?®])
148      ("R"    . iso-transl-registered-sign)      ("R"    . [?®])
149      ("*S"   . iso-transl-section-sign)      ("*S"   . [?§])
150      ("S"    . iso-transl-section-sign)      ("S"    . [?§])
151      ("*Y"   . iso-transl-yen-sign)      ("*Y"   . [?¥])
152      ("Y"    . iso-transl-yen-sign)      ("Y"    . [?¥])
153      ("^1"   . iso-transl-superscript-1)      ("^1"   . [?¹])
154      ("^2"   . iso-transl-superscript-2)      ("^2"   . [?²])
155      ("^3"   . iso-transl-superscript-3)      ("^3"   . [?³])
156      ("^A"   . iso-transl-A-caret)      ("^A"   . [?Â])
157      ("^E"   . iso-transl-E-caret)      ("^E"   . [?Ê])
158      ("^I"   . iso-transl-I-caret)      ("^I"   . [?Î])
159      ("^O"   . iso-transl-O-caret)      ("^O"   . [?Ô])
160      ("^U"   . iso-transl-U-caret)      ("^U"   . [?Û])
161      ("^a"   . iso-transl-a-caret)      ("^a"   . [?â])
162      ("^e"   . iso-transl-e-caret)      ("^e"   . [?ê])
163      ("^i"   . iso-transl-i-caret)      ("^i"   . [?î])
164      ("^o"   . iso-transl-o-caret)      ("^o"   . [?ô])
165      ("^u"   . iso-transl-u-caret)      ("^u"   . [?û])
166      ("_a"   . iso-transl-ordinal-indicator-feminine)      ("_a"   . [?ª])
167      ("_o"   . iso-transl-ordinal-indicator-masculine)      ("_o"   . [?º])
168      ("`A"   . iso-transl-A-grave)      ("`A"   . [?À])
169      ("`E"   . iso-transl-E-grave)      ("`E"   . [?È])
170      ("`I"   . iso-transl-I-grave)      ("`I"   . [?Ì])
171      ("`O"   . iso-transl-O-grave)      ("`O"   . [?Ò])
172      ("`U"   . iso-transl-U-grave)      ("`U"   . [?Ù])
173      ("`a"   . iso-transl-a-grave)      ("`a"   . [?à])
174      ("`e"   . iso-transl-e-grave)      ("`e"   . [?è])
175      ("`i"   . iso-transl-i-grave)      ("`i"   . [?ì])
176      ("`o"   . iso-transl-o-grave)      ("`o"   . [?ò])
177      ("`u"   . iso-transl-u-grave)      ("`u"   . [?ù])
178      ("*c"   . iso-transl-cent-sign)      ("*c"   . [?¢])
179      ("c"    . iso-transl-cent-sign)      ("c"    . [?¢])
180      ("*o"   . iso-transl-degree-sign)      ("*o"   . [?°])
181      ("o"    . iso-transl-degree-sign)      ("o"    . [?°])
182      ("*u"   . iso-transl-micro-sign)      ("*u"   . [?µ])
183      ("u"    . iso-transl-micro-sign)      ("u"    . [?µ])
184      ("*m"   . iso-transl-micro-sign)      ("*m"   . [?µ])
185      ("m"    . iso-transl-micro-sign)      ("m"    . [?µ])
186      ("*x"   . iso-transl-multiplication-sign)      ("*x"   . [?×])
187      ("x"    . iso-transl-multiplication-sign)      ("x"    . [?×])
188      ("*|"   . iso-transl-broken-vertical-line)      ("*|"   . [?¦])
189      ("|"    . iso-transl-broken-vertical-line)      ("|"    . [?¦])
190      ("~A"   . iso-transl-A-tilde)      ("~A"   . [?Ã])
191      ("~D"   . iso-transl-D-stroke)      ("~D"   . [?Ð])
192      ("~N"   . iso-transl-N-tilde)      ("~N"   . [?Ñ])
193      ("~O"   . iso-transl-O-tilde)      ("~O"   . [?Õ])
194      ("~T"   . iso-transl-THORN)      ("~T"   . [?Þ])
195      ("~a"   . iso-transl-a-tilde)      ("~a"   . [?ã])
196      ("~d"   . iso-transl-d-stroke)      ("~d"   . [?ð])
197      ("~n"   . iso-transl-n-tilde)      ("~n"   . [?ñ])
198      ("~o"   . iso-transl-o-tilde)      ("~o"   . [?õ])
199      ("~t"   . iso-transl-thorn)      ("~t"   . [?þ])
200      ("~~"   . iso-transl-not-sign)      ("~~"   . [?¬])
201      ("' "   . "'")      ("' "   . "'")
202      ("` "   . "`")      ("` "   . "`")
203      ("\" "  . "\"")      ("\" "  . "\"")
# 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    
 (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 [?ÿ])  
   
211  ;; Language-specific translation lists.  ;; Language-specific translation lists.
212  (defvar iso-transl-language-alist  (defvar iso-transl-language-alist
213    '(("Esperanto"    '(("Esperanto"

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

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