Mercurial > emacs
annotate lisp/international/iso-cvt.el @ 91697:056e52861ec3
*** empty log message ***
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 09 Feb 2008 10:53:10 +0000 |
parents | b6fdfff4ae81 |
children | 606f2d163a64 889bc336b89b |
rev | line source |
---|---|
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
34753
diff
changeset
|
1 ;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*- |
13337 | 2 ;; This file was formerly called gm-lingo.el. |
3 | |
74544 | 4 ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001, |
79709 | 5 ;; 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
7260 | 6 |
7 ;; Author: Michael Gschwind <mike@vlsivie.tuwien.ac.at> | |
8 ;; Keywords: tex, iso, latin, i18n | |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
78274
451a2d341d55
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
77673
diff
changeset
|
14 ;; the Free Software Foundation; either version 3, or (at your option) |
7260 | 15 ;; any later version. |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
7260 | 26 |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
27 ;;; Commentary: |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
28 ;; This lisp code is a general framework for translating various |
18228 | 29 ;; representations of the same data. |
30 ;; among other things it can be used to translate TeX, HTML, and compressed | |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
31 ;; files to ISO 8859-1. It can also be used to translate different charsets |
18228 | 32 ;; such as IBM PC, Macintosh or HP Roman8. |
33 ;; Note that many translations use the GNU recode tool to do the actual | |
34 ;; conversion. So you might want to install that tool to get the full | |
35 ;; benefit of iso-cvt.el | |
7425
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
36 |
18228 | 37 ; TO DO: |
28393 | 38 ; Cover more cases for translation. (There is an infinite number of ways to |
18228 | 39 ; represent accented characters in TeX) |
7260 | 40 |
18228 | 41 ;; SEE ALSO: |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
42 ; If you are interested in questions related to using the ISO 8859-1 |
18228 | 43 ; characters set (configuring emacs, Unix, etc. to use ISO), then you |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
44 ; can get the ISO 8859-1 FAQ via anonymous ftp from |
28425
6cc408ca6aef
Fix comment. Don't bother to require format.
Dave Love <fx@gnu.org>
parents:
28393
diff
changeset
|
45 ; ftp.vlsivie.tuwien.ac.at in /pub/8bit/FAQ-ISO-8859-1 |
7260 | 46 |
47 ;;; Code: | |
48 | |
49 (defvar iso-spanish-trans-tab | |
50 '( | |
51 ("~n" "ñ") | |
52 ("\([a-zA-Z]\)#" "\\1ñ") | |
53 ("~N" "Ñ") | |
54 ("\\([-a-zA-Z\"`]\\)\"u" "\\1ü") | |
55 ("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü") | |
56 ("\\([-a-zA-Z]\\)'o" "\\1ó") | |
57 ("\\([-a-zA-Z]\\)'O" "\\Ó") | |
58 ("\\([-a-zA-Z]\\)'e" "\\1é") | |
59 ("\\([-a-zA-Z]\\)'E" "\\1É") | |
60 ("\\([-a-zA-Z]\\)'a" "\\1á") | |
61 ("\\([-a-zA-Z]\\)'A" "\\1A") | |
62 ("\\([-a-zA-Z]\\)'i" "\\1í") | |
63 ("\\([-a-zA-Z]\\)'I" "\\1Í") | |
64 ) | |
65 "Spanish translation table.") | |
66 | |
18228 | 67 (defun iso-translate-conventions (from to trans-tab) |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
68 "Translate between FROM and TO using the translation table TRANS-TAB." |
7260 | 69 (save-excursion |
18228 | 70 (save-restriction |
71 (narrow-to-region from to) | |
72 (goto-char from) | |
73 (let ((work-tab trans-tab) | |
74 (buffer-read-only nil) | |
75 (case-fold-search nil)) | |
76 (while work-tab | |
77 (save-excursion | |
78 (let ((trans-this (car work-tab))) | |
79 (while (re-search-forward (car trans-this) nil t) | |
80 (replace-match (car (cdr trans-this)) t nil))) | |
81 (setq work-tab (cdr work-tab))))) | |
82 (point-max)))) | |
7260 | 83 |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
84 ;;;###autoload |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
85 (defun iso-spanish (from to &optional buffer) |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
86 "Translate net conventions for Spanish to ISO 8859-1. |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
87 Translate the region between FROM and TO using the table |
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
88 `iso-spanish-trans-tab'. |
34753
879195ddd0d6
Docstrings fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28425
diff
changeset
|
89 Optional arg BUFFER is ignored (for use in `format-alist')." |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
90 (interactive "*r") |
18228 | 91 (iso-translate-conventions from to iso-spanish-trans-tab)) |
7260 | 92 |
93 (defvar iso-aggressive-german-trans-tab | |
94 '( | |
95 ("\"a" "ä") | |
96 ("\"A" "Ä") | |
97 ("\"o" "ö") | |
98 ("\"O" "Ö") | |
99 ("\"u" "ü") | |
100 ("\"U" "Ü") | |
101 ("\"s" "ß") | |
102 ("\\\\3" "ß") | |
103 ) | |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
104 "German translation table. |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
105 This table uses an aggressive translation approach |
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
106 and may erroneously translate too much.") |
7260 | 107 |
108 (defvar iso-conservative-german-trans-tab | |
109 '( | |
110 ("\\([-a-zA-Z\"`]\\)\"a" "\\1ä") | |
111 ("\\([-a-zA-Z\"`]\\)\"A" "\\1Ä") | |
112 ("\\([-a-zA-Z\"`]\\)\"o" "\\1ö") | |
113 ("\\([-a-zA-Z\"`]\\)\"O" "\\1Ö") | |
114 ("\\([-a-zA-Z\"`]\\)\"u" "\\1ü") | |
115 ("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü") | |
116 ("\\([-a-zA-Z\"`]\\)\"s" "\\1ß") | |
117 ("\\([-a-zA-Z\"`]\\)\\\\3" "\\1ß") | |
118 ) | |
119 "German translation table. | |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
120 This table uses a conservative translation approach |
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
121 and may translate too little.") |
7260 | 122 |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
123 (defvar iso-german-trans-tab iso-aggressive-german-trans-tab |
7260 | 124 "Currently active translation table for German.") |
125 | |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
126 ;;;###autoload |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
127 (defun iso-german (from to &optional buffer) |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
128 "Translate net conventions for German to ISO 8859-1. |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
129 Translate the region FROM and TO using the table |
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
130 `iso-german-trans-tab'. |
34753
879195ddd0d6
Docstrings fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28425
diff
changeset
|
131 Optional arg BUFFER is ignored (for use in `format-alist')." |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
132 (interactive "*r") |
18228 | 133 (iso-translate-conventions from to iso-german-trans-tab)) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
38436
diff
changeset
|
134 |
7260 | 135 (defvar iso-iso2tex-trans-tab |
136 '( | |
137 ("ä" "{\\\\\"a}") | |
138 ("à" "{\\\\`a}") | |
139 ("á" "{\\\\'a}") | |
140 ("ã" "{\\\\~a}") | |
141 ("â" "{\\\\^a}") | |
142 ("ë" "{\\\\\"e}") | |
143 ("è" "{\\\\`e}") | |
144 ("é" "{\\\\'e}") | |
145 ("ê" "{\\\\^e}") | |
146 ("ï" "{\\\\\"\\\\i}") | |
147 ("ì" "{\\\\`\\\\i}") | |
148 ("í" "{\\\\'\\\\i}") | |
149 ("î" "{\\\\^\\\\i}") | |
150 ("ö" "{\\\\\"o}") | |
151 ("ò" "{\\\\`o}") | |
152 ("ó" "{\\\\'o}") | |
153 ("õ" "{\\\\~o}") | |
154 ("ô" "{\\\\^o}") | |
155 ("ü" "{\\\\\"u}") | |
156 ("ù" "{\\\\`u}") | |
157 ("ú" "{\\\\'u}") | |
158 ("û" "{\\\\^u}") | |
159 ("Ä" "{\\\\\"A}") | |
160 ("À" "{\\\\`A}") | |
161 ("Á" "{\\\\'A}") | |
162 ("Ã" "{\\\\~A}") | |
163 ("Â" "{\\\\^A}") | |
164 ("Ë" "{\\\\\"E}") | |
165 ("È" "{\\\\`E}") | |
166 ("É" "{\\\\'E}") | |
167 ("Ê" "{\\\\^E}") | |
168 ("Ï" "{\\\\\"I}") | |
169 ("Ì" "{\\\\`I}") | |
170 ("Í" "{\\\\'I}") | |
171 ("Î" "{\\\\^I}") | |
172 ("Ö" "{\\\\\"O}") | |
173 ("Ò" "{\\\\`O}") | |
174 ("Ó" "{\\\\'O}") | |
175 ("Õ" "{\\\\~O}") | |
176 ("Ô" "{\\\\^O}") | |
177 ("Ü" "{\\\\\"U}") | |
178 ("Ù" "{\\\\`U}") | |
179 ("Ú" "{\\\\'U}") | |
180 ("Û" "{\\\\^U}") | |
181 ("ñ" "{\\\\~n}") | |
182 ("Ñ" "{\\\\~N}") | |
183 ("ç" "{\\\\c c}") | |
184 ("Ç" "{\\\\c C}") | |
185 ("ß" "{\\\\ss}") | |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
186 ("\306" "{\\\\AE}") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
187 ("\346" "{\\\\ae}") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
188 ("\305" "{\\\\AA}") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
189 ("\345" "{\\\\aa}") |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
190 ("\251" "{\\\\copyright}") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
191 ("£" "{\\\\pounds}") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
192 ("¶" "{\\\\P}") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
193 ("§" "{\\\\S}") |
7260 | 194 ("¿" "{?`}") |
195 ("¡" "{!`}") | |
196 ) | |
197 "Translation table for translating ISO 8859-1 characters to TeX sequences.") | |
198 | |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
199 ;;;###autoload |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
200 (defun iso-iso2tex (from to &optional buffer) |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
201 "Translate ISO 8859-1 characters to TeX sequences. |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
202 Translate the region between FROM and TO using the table |
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
203 `iso-iso2tex-trans-tab'. |
34753
879195ddd0d6
Docstrings fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28425
diff
changeset
|
204 Optional arg BUFFER is ignored (for use in `format-alist')." |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
205 (interactive "*r") |
18228 | 206 (iso-translate-conventions from to iso-iso2tex-trans-tab)) |
7260 | 207 |
208 (defvar iso-tex2iso-trans-tab | |
209 '( | |
210 ("{\\\\\"a}" "ä") | |
211 ("{\\\\`a}" "à") | |
212 ("{\\\\'a}" "á") | |
213 ("{\\\\~a}" "ã") | |
214 ("{\\\\^a}" "â") | |
215 ("{\\\\\"e}" "ë") | |
216 ("{\\\\`e}" "è") | |
217 ("{\\\\'e}" "é") | |
218 ("{\\\\^e}" "ê") | |
219 ("{\\\\\"\\\\i}" "ï") | |
220 ("{\\\\`\\\\i}" "ì") | |
221 ("{\\\\'\\\\i}" "í") | |
222 ("{\\\\^\\\\i}" "î") | |
223 ("{\\\\\"i}" "ï") | |
224 ("{\\\\`i}" "ì") | |
225 ("{\\\\'i}" "í") | |
226 ("{\\\\^i}" "î") | |
227 ("{\\\\\"o}" "ö") | |
228 ("{\\\\`o}" "ò") | |
229 ("{\\\\'o}" "ó") | |
230 ("{\\\\~o}" "õ") | |
231 ("{\\\\^o}" "ô") | |
232 ("{\\\\\"u}" "ü") | |
233 ("{\\\\`u}" "ù") | |
234 ("{\\\\'u}" "ú") | |
235 ("{\\\\^u}" "û") | |
236 ("{\\\\\"A}" "Ä") | |
237 ("{\\\\`A}" "À") | |
238 ("{\\\\'A}" "Á") | |
239 ("{\\\\~A}" "Ã") | |
240 ("{\\\\^A}" "Â") | |
241 ("{\\\\\"E}" "Ë") | |
242 ("{\\\\`E}" "È") | |
243 ("{\\\\'E}" "É") | |
244 ("{\\\\^E}" "Ê") | |
245 ("{\\\\\"I}" "Ï") | |
246 ("{\\\\`I}" "Ì") | |
247 ("{\\\\'I}" "Í") | |
248 ("{\\\\^I}" "Î") | |
249 ("{\\\\\"O}" "Ö") | |
250 ("{\\\\`O}" "Ò") | |
251 ("{\\\\'O}" "Ó") | |
252 ("{\\\\~O}" "Õ") | |
253 ("{\\\\^O}" "Ô") | |
254 ("{\\\\\"U}" "Ü") | |
255 ("{\\\\`U}" "Ù") | |
256 ("{\\\\'U}" "Ú") | |
257 ("{\\\\^U}" "Û") | |
258 ("{\\\\~n}" "ñ") | |
259 ("{\\\\~N}" "Ñ") | |
260 ("{\\\\c c}" "ç") | |
261 ("{\\\\c C}" "Ç") | |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
262 ("\\\\\"a" "ä") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
263 ("\\\\`a" "à") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
264 ("\\\\'a" "á") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
265 ("\\\\~a" "ã") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
266 ("\\\\^a" "â") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
267 ("\\\\\"e" "ë") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
268 ("\\\\`e" "è") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
269 ("\\\\'e" "é") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
270 ("\\\\^e" "ê") |
58278
31a2a9c6a64d
(iso-tex2iso-trans-tab): Discard spaces after \i according to TeX rules.
Richard M. Stallman <rms@gnu.org>
parents:
58156
diff
changeset
|
271 ;; Discard spaces and/or one EOF after macro \i. |
31a2a9c6a64d
(iso-tex2iso-trans-tab): Discard spaces after \i according to TeX rules.
Richard M. Stallman <rms@gnu.org>
parents:
58156
diff
changeset
|
272 ;; Converting it back will use braces. |
31a2a9c6a64d
(iso-tex2iso-trans-tab): Discard spaces after \i according to TeX rules.
Richard M. Stallman <rms@gnu.org>
parents:
58156
diff
changeset
|
273 ("\\\\\"\\\\i *\n\n" "ï\n\n") |
31a2a9c6a64d
(iso-tex2iso-trans-tab): Discard spaces after \i according to TeX rules.
Richard M. Stallman <rms@gnu.org>
parents:
58156
diff
changeset
|
274 ("\\\\\"\\\\i *\n?" "ï") |
31a2a9c6a64d
(iso-tex2iso-trans-tab): Discard spaces after \i according to TeX rules.
Richard M. Stallman <rms@gnu.org>
parents:
58156
diff
changeset
|
275 ("\\\\`\\\\i *\n\n" "ì\n\n") |
31a2a9c6a64d
(iso-tex2iso-trans-tab): Discard spaces after \i according to TeX rules.
Richard M. Stallman <rms@gnu.org>
parents:
58156
diff
changeset
|
276 ("\\\\`\\\\i *\n?" "ì") |
31a2a9c6a64d
(iso-tex2iso-trans-tab): Discard spaces after \i according to TeX rules.
Richard M. Stallman <rms@gnu.org>
parents:
58156
diff
changeset
|
277 ("\\\\'\\\\i *\n\n" "í\n\n") |
31a2a9c6a64d
(iso-tex2iso-trans-tab): Discard spaces after \i according to TeX rules.
Richard M. Stallman <rms@gnu.org>
parents:
58156
diff
changeset
|
278 ("\\\\'\\\\i *\n?" "í") |
31a2a9c6a64d
(iso-tex2iso-trans-tab): Discard spaces after \i according to TeX rules.
Richard M. Stallman <rms@gnu.org>
parents:
58156
diff
changeset
|
279 ("\\\\^\\\\i *\n\n" "î\n\n") |
31a2a9c6a64d
(iso-tex2iso-trans-tab): Discard spaces after \i according to TeX rules.
Richard M. Stallman <rms@gnu.org>
parents:
58156
diff
changeset
|
280 ("\\\\^\\\\i *\n?" "î") |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
281 ("\\\\\"i" "ï") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
282 ("\\\\`i" "ì") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
283 ("\\\\'i" "í") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
284 ("\\\\^i" "î") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
285 ("\\\\\"o" "ö") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
286 ("\\\\`o" "ò") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
287 ("\\\\'o" "ó") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
288 ("\\\\~o" "õ") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
289 ("\\\\^o" "ô") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
290 ("\\\\\"u" "ü") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
291 ("\\\\`u" "ù") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
292 ("\\\\'u" "ú") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
293 ("\\\\^u" "û") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
294 ("\\\\\"A" "Ä") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
295 ("\\\\`A" "À") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
296 ("\\\\'A" "Á") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
297 ("\\\\~A" "Ã") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
298 ("\\\\^A" "Â") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
299 ("\\\\\"E" "Ë") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
300 ("\\\\`E" "È") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
301 ("\\\\'E" "É") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
302 ("\\\\^E" "Ê") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
303 ("\\\\\"I" "Ï") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
304 ("\\\\`I" "Ì") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
305 ("\\\\'I" "Í") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
306 ("\\\\^I" "Î") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
307 ("\\\\\"O" "Ö") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
308 ("\\\\`O" "Ò") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
309 ("\\\\'O" "Ó") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
310 ("\\\\~O" "Õ") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
311 ("\\\\^O" "Ô") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
312 ("\\\\\"U" "Ü") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
313 ("\\\\`U" "Ù") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
314 ("\\\\'U" "Ú") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
315 ("\\\\^U" "Û") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
316 ("\\\\~n" "ñ") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
317 ("\\\\~N" "Ñ") |
7260 | 318 ("\\\\\"{a}" "ä") |
319 ("\\\\`{a}" "à") | |
320 ("\\\\'{a}" "á") | |
321 ("\\\\~{a}" "ã") | |
322 ("\\\\^{a}" "â") | |
323 ("\\\\\"{e}" "ë") | |
324 ("\\\\`{e}" "è") | |
325 ("\\\\'{e}" "é") | |
326 ("\\\\^{e}" "ê") | |
327 ("\\\\\"{\\\\i}" "ï") | |
328 ("\\\\`{\\\\i}" "ì") | |
329 ("\\\\'{\\\\i}" "í") | |
330 ("\\\\^{\\\\i}" "î") | |
331 ("\\\\\"{i}" "ï") | |
332 ("\\\\`{i}" "ì") | |
333 ("\\\\'{i}" "í") | |
334 ("\\\\^{i}" "î") | |
335 ("\\\\\"{o}" "ö") | |
336 ("\\\\`{o}" "ò") | |
337 ("\\\\'{o}" "ó") | |
338 ("\\\\~{o}" "õ") | |
339 ("\\\\^{o}" "ô") | |
340 ("\\\\\"{u}" "ü") | |
341 ("\\\\`{u}" "ù") | |
342 ("\\\\'{u}" "ú") | |
343 ("\\\\^{u}" "û") | |
344 ("\\\\\"{A}" "Ä") | |
345 ("\\\\`{A}" "À") | |
346 ("\\\\'{A}" "Á") | |
347 ("\\\\~{A}" "Ã") | |
348 ("\\\\^{A}" "Â") | |
349 ("\\\\\"{E}" "Ë") | |
350 ("\\\\`{E}" "È") | |
351 ("\\\\'{E}" "É") | |
352 ("\\\\^{E}" "Ê") | |
353 ("\\\\\"{I}" "Ï") | |
354 ("\\\\`{I}" "Ì") | |
355 ("\\\\'{I}" "Í") | |
356 ("\\\\^{I}" "Î") | |
357 ("\\\\\"{O}" "Ö") | |
358 ("\\\\`{O}" "Ò") | |
359 ("\\\\'{O}" "Ó") | |
360 ("\\\\~{O}" "Õ") | |
361 ("\\\\^{O}" "Ô") | |
362 ("\\\\\"{U}" "Ü") | |
363 ("\\\\`{U}" "Ù") | |
364 ("\\\\'{U}" "Ú") | |
365 ("\\\\^{U}" "Û") | |
366 ("\\\\~{n}" "ñ") | |
367 ("\\\\~{N}" "Ñ") | |
368 ("\\\\c{c}" "ç") | |
369 ("\\\\c{C}" "Ç") | |
370 ("{\\\\ss}" "ß") | |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
371 ("{\\\\AE}" "\306") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
372 ("{\\\\ae}" "\346") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
373 ("{\\\\AA}" "\305") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
374 ("{\\\\aa}" "\345") |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
375 ("{\\\\copyright}" "\251") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
376 ("\\\\copyright{}" "\251") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
377 ("{\\\\pounds}" "£" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
378 ("{\\\\P}" "¶" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
379 ("{\\\\S}" "§" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
380 ("\\\\pounds{}" "£" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
381 ("\\\\P{}" "¶" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
382 ("\\\\S{}" "§" ) |
8538
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
383 ("{\\?`}" "¿") |
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
384 ("{!`}" "¡") |
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
385 ("\\?`" "¿") |
7260 | 386 ("!`" "¡") |
387 ) | |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
388 "Translation table for translating TeX sequences to ISO 8859-1 characters. |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
389 This table is not exhaustive (and due to TeX's power can never be). |
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
390 It only contains commonly used sequences.") |
7260 | 391 |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
392 ;;;###autoload |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
393 (defun iso-tex2iso (from to &optional buffer) |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
394 "Translate TeX sequences to ISO 8859-1 characters. |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
395 Translate the region between FROM and TO using the table |
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
396 `iso-tex2iso-trans-tab'. |
34753
879195ddd0d6
Docstrings fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28425
diff
changeset
|
397 Optional arg BUFFER is ignored (for use in `format-alist')." |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
398 (interactive "*r") |
18228 | 399 (iso-translate-conventions from to iso-tex2iso-trans-tab)) |
7260 | 400 |
401 (defvar iso-gtex2iso-trans-tab | |
402 '( | |
403 ("{\\\\\"a}" "ä") | |
404 ("{\\\\`a}" "à") | |
405 ("{\\\\'a}" "á") | |
406 ("{\\\\~a}" "ã") | |
407 ("{\\\\^a}" "â") | |
408 ("{\\\\\"e}" "ë") | |
409 ("{\\\\`e}" "è") | |
410 ("{\\\\'e}" "é") | |
411 ("{\\\\^e}" "ê") | |
412 ("{\\\\\"\\\\i}" "ï") | |
413 ("{\\\\`\\\\i}" "ì") | |
414 ("{\\\\'\\\\i}" "í") | |
415 ("{\\\\^\\\\i}" "î") | |
416 ("{\\\\\"i}" "ï") | |
417 ("{\\\\`i}" "ì") | |
418 ("{\\\\'i}" "í") | |
419 ("{\\\\^i}" "î") | |
420 ("{\\\\\"o}" "ö") | |
421 ("{\\\\`o}" "ò") | |
422 ("{\\\\'o}" "ó") | |
423 ("{\\\\~o}" "õ") | |
424 ("{\\\\^o}" "ô") | |
425 ("{\\\\\"u}" "ü") | |
426 ("{\\\\`u}" "ù") | |
427 ("{\\\\'u}" "ú") | |
428 ("{\\\\^u}" "û") | |
429 ("{\\\\\"A}" "Ä") | |
430 ("{\\\\`A}" "À") | |
431 ("{\\\\'A}" "Á") | |
432 ("{\\\\~A}" "Ã") | |
433 ("{\\\\^A}" "Â") | |
434 ("{\\\\\"E}" "Ë") | |
435 ("{\\\\`E}" "È") | |
436 ("{\\\\'E}" "É") | |
437 ("{\\\\^E}" "Ê") | |
438 ("{\\\\\"I}" "Ï") | |
439 ("{\\\\`I}" "Ì") | |
440 ("{\\\\'I}" "Í") | |
441 ("{\\\\^I}" "Î") | |
442 ("{\\\\\"O}" "Ö") | |
443 ("{\\\\`O}" "Ò") | |
444 ("{\\\\'O}" "Ó") | |
445 ("{\\\\~O}" "Õ") | |
446 ("{\\\\^O}" "Ô") | |
447 ("{\\\\\"U}" "Ü") | |
448 ("{\\\\`U}" "Ù") | |
449 ("{\\\\'U}" "Ú") | |
450 ("{\\\\^U}" "Û") | |
451 ("{\\\\~n}" "ñ") | |
452 ("{\\\\~N}" "Ñ") | |
453 ("{\\\\c c}" "ç") | |
454 ("{\\\\c C}" "Ç") | |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
455 ("\\\\\"a" "ä") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
456 ("\\\\`a" "à") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
457 ("\\\\'a" "á") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
458 ("\\\\~a" "ã") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
459 ("\\\\^a" "â") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
460 ("\\\\\"e" "ë") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
461 ("\\\\`e" "è") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
462 ("\\\\'e" "é") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
463 ("\\\\^e" "ê") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
464 ("\\\\\"\\\\i" "ï") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
465 ("\\\\`\\\\i" "ì") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
466 ("\\\\'\\\\i" "í") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
467 ("\\\\^\\\\i" "î") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
468 ("\\\\\"i" "ï") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
469 ("\\\\`i" "ì") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
470 ("\\\\'i" "í") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
471 ("\\\\^i" "î") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
472 ("\\\\\"o" "ö") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
473 ("\\\\`o" "ò") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
474 ("\\\\'o" "ó") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
475 ("\\\\~o" "õ") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
476 ("\\\\^o" "ô") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
477 ("\\\\\"u" "ü") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
478 ("\\\\`u" "ù") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
479 ("\\\\'u" "ú") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
480 ("\\\\^u" "û") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
481 ("\\\\\"A" "Ä") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
482 ("\\\\`A" "À") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
483 ("\\\\'A" "Á") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
484 ("\\\\~A" "Ã") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
485 ("\\\\^A" "Â") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
486 ("\\\\\"E" "Ë") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
487 ("\\\\`E" "È") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
488 ("\\\\'E" "É") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
489 ("\\\\^E" "Ê") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
490 ("\\\\\"I" "Ï") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
491 ("\\\\`I" "Ì") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
492 ("\\\\'I" "Í") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
493 ("\\\\^I" "Î") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
494 ("\\\\\"O" "Ö") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
495 ("\\\\`O" "Ò") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
496 ("\\\\'O" "Ó") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
497 ("\\\\~O" "Õ") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
498 ("\\\\^O" "Ô") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
499 ("\\\\\"U" "Ü") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
500 ("\\\\`U" "Ù") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
501 ("\\\\'U" "Ú") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
502 ("\\\\^U" "Û") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
503 ("\\\\~n" "ñ") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
504 ("\\\\~N" "Ñ") |
7260 | 505 ("\\\\\"{a}" "ä") |
506 ("\\\\`{a}" "à") | |
507 ("\\\\'{a}" "á") | |
508 ("\\\\~{a}" "ã") | |
509 ("\\\\^{a}" "â") | |
510 ("\\\\\"{e}" "ë") | |
511 ("\\\\`{e}" "è") | |
512 ("\\\\'{e}" "é") | |
513 ("\\\\^{e}" "ê") | |
514 ("\\\\\"{\\\\i}" "ï") | |
515 ("\\\\`{\\\\i}" "ì") | |
516 ("\\\\'{\\\\i}" "í") | |
517 ("\\\\^{\\\\i}" "î") | |
518 ("\\\\\"{i}" "ï") | |
519 ("\\\\`{i}" "ì") | |
520 ("\\\\'{i}" "í") | |
521 ("\\\\^{i}" "î") | |
522 ("\\\\\"{o}" "ö") | |
523 ("\\\\`{o}" "ò") | |
524 ("\\\\'{o}" "ó") | |
525 ("\\\\~{o}" "õ") | |
526 ("\\\\^{o}" "ô") | |
527 ("\\\\\"{u}" "ü") | |
528 ("\\\\`{u}" "ù") | |
529 ("\\\\'{u}" "ú") | |
530 ("\\\\^{u}" "û") | |
531 ("\\\\\"{A}" "Ä") | |
532 ("\\\\`{A}" "À") | |
533 ("\\\\'{A}" "Á") | |
534 ("\\\\~{A}" "Ã") | |
535 ("\\\\^{A}" "Â") | |
536 ("\\\\\"{E}" "Ë") | |
537 ("\\\\`{E}" "È") | |
538 ("\\\\'{E}" "É") | |
539 ("\\\\^{E}" "Ê") | |
540 ("\\\\\"{I}" "Ï") | |
541 ("\\\\`{I}" "Ì") | |
542 ("\\\\'{I}" "Í") | |
543 ("\\\\^{I}" "Î") | |
544 ("\\\\\"{O}" "Ö") | |
545 ("\\\\`{O}" "Ò") | |
546 ("\\\\'{O}" "Ó") | |
547 ("\\\\~{O}" "Õ") | |
548 ("\\\\^{O}" "Ô") | |
549 ("\\\\\"{U}" "Ü") | |
550 ("\\\\`{U}" "Ù") | |
551 ("\\\\'{U}" "Ú") | |
552 ("\\\\^{U}" "Û") | |
553 ("\\\\~{n}" "ñ") | |
554 ("\\\\~{N}" "Ñ") | |
555 ("\\\\c{c}" "ç") | |
556 ("\\\\c{C}" "Ç") | |
557 ("{\\\\ss}" "ß") | |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
558 ("{\\\\AE}" "\306") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
559 ("{\\\\ae}" "\346") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
560 ("{\\\\AA}" "\305") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
561 ("{\\\\aa}" "\345") |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
562 ("{\\\\copyright}" "\251") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
563 ("\\\\copyright{}" "\251") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
564 ("{\\\\pounds}" "£" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
565 ("{\\\\P}" "¶" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
566 ("{\\\\S}" "§" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
567 ("\\\\pounds{}" "£" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
568 ("\\\\P{}" "¶" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
569 ("\\\\S{}" "§" ) |
7260 | 570 ("?`" "¿") |
571 ("!`" "¡") | |
572 ("{?`}" "¿") | |
573 ("{!`}" "¡") | |
7425
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
574 ("\"a" "ä") |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
575 ("\"A" "Ä") |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
576 ("\"o" "ö") |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
577 ("\"O" "Ö") |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
578 ("\"u" "ü") |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
579 ("\"U" "Ü") |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
580 ("\"s" "ß") |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
581 ("\\\\3" "ß") |
7260 | 582 ) |
583 "Translation table for translating German TeX sequences to ISO 8859-1. | |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
584 This table is not exhaustive (and due to TeX's power can never be). |
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
585 It only contains commonly used sequences.") |
7260 | 586 |
587 (defvar iso-iso2gtex-trans-tab | |
588 '( | |
589 ("ä" "\"a") | |
590 ("à" "{\\\\`a}") | |
591 ("á" "{\\\\'a}") | |
592 ("ã" "{\\\\~a}") | |
593 ("â" "{\\\\^a}") | |
594 ("ë" "{\\\\\"e}") | |
595 ("è" "{\\\\`e}") | |
596 ("é" "{\\\\'e}") | |
597 ("ê" "{\\\\^e}") | |
598 ("ï" "{\\\\\"\\\\i}") | |
599 ("ì" "{\\\\`\\\\i}") | |
600 ("í" "{\\\\'\\\\i}") | |
601 ("î" "{\\\\^\\\\i}") | |
602 ("ö" "\"o") | |
603 ("ò" "{\\\\`o}") | |
604 ("ó" "{\\\\'o}") | |
605 ("õ" "{\\\\~o}") | |
606 ("ô" "{\\\\^o}") | |
607 ("ü" "\"u") | |
608 ("ù" "{\\\\`u}") | |
609 ("ú" "{\\\\'u}") | |
610 ("û" "{\\\\^u}") | |
611 ("Ä" "\"A") | |
612 ("À" "{\\\\`A}") | |
613 ("Á" "{\\\\'A}") | |
614 ("Ã" "{\\\\~A}") | |
615 ("Â" "{\\\\^A}") | |
616 ("Ë" "{\\\\\"E}") | |
617 ("È" "{\\\\`E}") | |
618 ("É" "{\\\\'E}") | |
619 ("Ê" "{\\\\^E}") | |
620 ("Ï" "{\\\\\"I}") | |
621 ("Ì" "{\\\\`I}") | |
622 ("Í" "{\\\\'I}") | |
623 ("Î" "{\\\\^I}") | |
624 ("Ö" "\"O") | |
625 ("Ò" "{\\\\`O}") | |
626 ("Ó" "{\\\\'O}") | |
627 ("Õ" "{\\\\~O}") | |
628 ("Ô" "{\\\\^O}") | |
629 ("Ü" "\"U") | |
630 ("Ù" "{\\\\`U}") | |
631 ("Ú" "{\\\\'U}") | |
632 ("Û" "{\\\\^U}") | |
633 ("ñ" "{\\\\~n}") | |
634 ("Ñ" "{\\\\~N}") | |
635 ("ç" "{\\\\c c}") | |
636 ("Ç" "{\\\\c C}") | |
637 ("ß" "\"s") | |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
638 ("\306" "{\\\\AE}") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
639 ("\346" "{\\\\ae}") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
640 ("\305" "{\\\\AA}") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
641 ("\345" "{\\\\aa}") |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
642 ("\251" "{\\\\copyright}") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
643 ("£" "{\\\\pounds}") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
644 ("¶" "{\\\\P}") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
645 ("§" "{\\\\S}") |
7260 | 646 ("¿" "{?`}") |
647 ("¡" "{!`}") | |
648 ) | |
649 "Translation table for translating ISO 8859-1 characters to German TeX.") | |
650 | |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
651 ;;;###autoload |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
652 (defun iso-gtex2iso (from to &optional buffer) |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
653 "Translate German TeX sequences to ISO 8859-1 characters. |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
654 Translate the region between FROM and TO using the table |
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
655 `iso-gtex2iso-trans-tab'. |
34753
879195ddd0d6
Docstrings fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28425
diff
changeset
|
656 Optional arg BUFFER is ignored (for use in `format-alist')." |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
657 (interactive "*r") |
18228 | 658 (iso-translate-conventions from to iso-gtex2iso-trans-tab)) |
7260 | 659 |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
660 ;;;###autoload |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
661 (defun iso-iso2gtex (from to &optional buffer) |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
662 "Translate ISO 8859-1 characters to German TeX sequences. |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
663 Translate the region between FROM and TO using the table |
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
664 `iso-iso2gtex-trans-tab'. |
34753
879195ddd0d6
Docstrings fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28425
diff
changeset
|
665 Optional arg BUFFER is ignored (for use in `format-alist')." |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
666 (interactive "*r") |
18228 | 667 (iso-translate-conventions from to iso-iso2gtex-trans-tab)) |
668 | |
669 (defvar iso-iso2duden-trans-tab | |
670 '(("ä" "ae") | |
671 ("Ä" "Ae") | |
672 ("ö" "oe") | |
673 ("Ö" "Oe") | |
674 ("ü" "ue") | |
675 ("Ü" "Ue") | |
79357
07da999919b9
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
78274
diff
changeset
|
676 ("ß" "ss")) |
07da999919b9
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
78274
diff
changeset
|
677 "Translation table for translating ISO 8859-1 characters to Duden sequences.") |
18228 | 678 |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
679 ;;;###autoload |
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
680 (defun iso-iso2duden (from to &optional buffer) |
79357
07da999919b9
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
78274
diff
changeset
|
681 "Translate ISO 8859-1 characters to Duden sequences. |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
682 Translate the region between FROM and TO using the table |
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
683 `iso-iso2duden-trans-tab'. |
34753
879195ddd0d6
Docstrings fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28425
diff
changeset
|
684 Optional arg BUFFER is ignored (for use in `format-alist')." |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
685 (interactive "*r") |
18228 | 686 (iso-translate-conventions from to iso-iso2duden-trans-tab)) |
7260 | 687 |
28393 | 688 (defvar iso-iso2sgml-trans-tab |
689 '(("À" "À") | |
690 ("Á" "Á") | |
691 ("Â" "Â") | |
692 ("Ã" "Ã") | |
693 ("Ä" "Ä") | |
694 ("Å" "Å") | |
695 ("Æ" "Æ") | |
696 ("Ç" "Ç") | |
697 ("È" "È") | |
698 ("É" "É") | |
699 ("Ê" "Ê") | |
700 ("Ë" "Ë") | |
701 ("Ì" "Ì") | |
702 ("Í" "Í") | |
703 ("Î" "Î") | |
704 ("Ï" "Ï") | |
705 ("Ð" "Ð") | |
706 ("Ñ" "Ñ") | |
707 ("Ò" "Ò") | |
708 ("Ó" "Ó") | |
709 ("Ô" "Ô") | |
710 ("Õ" "Õ") | |
711 ("Ö" "Ö") | |
712 ("Ø" "Ø") | |
713 ("Ù" "Ù") | |
714 ("Ú" "Ú") | |
715 ("Û" "Û") | |
716 ("Ü" "Ü") | |
717 ("Ý" "Ý") | |
718 ("Þ" "Þ") | |
719 ("ß" "ß") | |
720 ("à" "à") | |
721 ("á" "á") | |
722 ("â" "â") | |
723 ("ã" "ã") | |
724 ("ä" "ä") | |
725 ("å" "å") | |
726 ("æ" "æ") | |
727 ("ç" "ç") | |
728 ("è" "è") | |
729 ("é" "é") | |
730 ("ê" "ê") | |
731 ("ë" "ë") | |
732 ("ì" "ì") | |
733 ("í" "í") | |
734 ("î" "î") | |
735 ("ï" "ï") | |
736 ("ð" "ð") | |
737 ("ñ" "ñ") | |
738 ("ò" "ò") | |
739 ("ó" "ó") | |
740 ("ô" "ô") | |
741 ("õ" "õ") | |
742 ("ö" "ö") | |
743 ("ø" "ø") | |
744 ("ù" "ù") | |
745 ("ú" "ú") | |
746 ("û" "û") | |
747 ("ü" "ü") | |
748 ("ý" "ý") | |
749 ("þ" "þ") | |
750 ("ÿ" "ÿ"))) | |
751 | |
752 (defvar iso-sgml2iso-trans-tab | |
753 '(("À" "À") | |
754 ("Á" "Á") | |
755 ("Â" "Â") | |
756 ("Ã" "Ã") | |
757 ("Ä" "Ä") | |
758 ("Å" "Å") | |
759 ("Æ" "Æ") | |
760 ("Ç" "Ç") | |
761 ("È" "È") | |
762 ("É" "É") | |
763 ("Ê" "Ê") | |
764 ("Ë" "Ë") | |
765 ("Ì" "Ì") | |
766 ("Í" "Í") | |
767 ("Î" "Î") | |
768 ("Ï" "Ï") | |
769 ("Ð" "Ð") | |
770 ("Ñ" "Ñ") | |
771 ("Ò" "Ò") | |
772 ("Ó" "Ó") | |
773 ("Ô" "Ô") | |
774 ("Õ" "Õ") | |
775 ("Ö" "Ö") | |
776 ("Ø" "Ø") | |
777 ("Ù" "Ù") | |
778 ("Ú" "Ú") | |
779 ("Û" "Û") | |
780 ("Ü" "Ü") | |
781 ("Ý" "Ý") | |
782 ("Þ" "Þ") | |
783 ("ß" "ß") | |
784 ("à" "à") | |
785 ("á" "á") | |
786 ("â" "â") | |
787 ("ã" "ã") | |
788 ("ä" "ä") | |
789 ("å" "å") | |
790 ("æ" "æ") | |
791 ("ç" "ç") | |
792 ("è" "è") | |
793 ("é" "é") | |
794 ("ê" "ê") | |
795 ("ë" "ë") | |
796 ("ì" "ì") | |
797 ("í" "í") | |
798 ("î" "î") | |
799 ("ï" "ï") | |
800 ("ð" "ð") | |
801 ("ñ" "ñ") | |
63102
608496528c29
(iso-sgml2iso-trans-tab): Add NBSP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
62274
diff
changeset
|
802 (" " " ") |
28393 | 803 ("ò" "ò") |
804 ("ó" "ó") | |
805 ("ô" "ô") | |
806 ("õ" "õ") | |
807 ("ö" "ö") | |
808 ("ø" "ø") | |
809 ("ù" "ù") | |
810 ("ú" "ú") | |
811 ("û" "û") | |
812 ("ü" "ü") | |
813 ("ý" "ý") | |
814 ("þ" "þ") | |
815 ("ÿ" "ÿ"))) | |
816 | |
817 ;;;###autoload | |
818 (defun iso-iso2sgml (from to &optional buffer) | |
819 "Translate ISO 8859-1 characters in the region to SGML entities. | |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
820 Use entities from \"ISO 8879:1986//ENTITIES Added Latin 1//EN\". |
34753
879195ddd0d6
Docstrings fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28425
diff
changeset
|
821 Optional arg BUFFER is ignored (for use in `format-alist')." |
28393 | 822 (interactive "*r") |
823 (iso-translate-conventions from to iso-iso2sgml-trans-tab)) | |
824 | |
825 ;;;###autoload | |
826 (defun iso-sgml2iso (from to &optional buffer) | |
827 "Translate SGML entities in the region to ISO 8859-1 characters. | |
79378
117a9d753a44
(iso-translate-conventions): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79357
diff
changeset
|
828 Use entities from \"ISO 8879:1986//ENTITIES Added Latin 1//EN\". |
34753
879195ddd0d6
Docstrings fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
28425
diff
changeset
|
829 Optional arg BUFFER is ignored (for use in `format-alist')." |
28393 | 830 (interactive "*r") |
831 (iso-translate-conventions from to iso-sgml2iso-trans-tab)) | |
832 | |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
833 ;;;###autoload |
77673
3424ba548b6f
(iso-cvt-read-only): Ignore arguments.
Richard M. Stallman <rms@gnu.org>
parents:
75347
diff
changeset
|
834 (defun iso-cvt-read-only (&rest ignore) |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
835 "Warn that format is read-only." |
18228 | 836 (interactive) |
837 (error "This format is read-only; specify another format for writing")) | |
838 | |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
839 ;;;###autoload |
77673
3424ba548b6f
(iso-cvt-read-only): Ignore arguments.
Richard M. Stallman <rms@gnu.org>
parents:
75347
diff
changeset
|
840 (defun iso-cvt-write-only (&rest ignore) |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
841 "Warn that format is write-only." |
18228 | 842 (interactive) |
843 (error "This format is write-only")) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
38436
diff
changeset
|
844 |
22911
d70738580fb4
(iso-spanish, iso-german, iso-iso2tex,
Dave Love <fx@gnu.org>
parents:
20987
diff
changeset
|
845 ;;;###autoload |
18228 | 846 (defun iso-cvt-define-menu () |
58007
a8e3cd5a8156
(iso-cvt-define-menu): menu-bar-files-menu renamed to menu-bar-file-menu.
Richard M. Stallman <rms@gnu.org>
parents:
52401
diff
changeset
|
847 "Add submenus to the File menu, to convert to and from various formats." |
18228 | 848 (interactive) |
849 | |
58111
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
850 (let ((load-as-menu-map (make-sparse-keymap "Load As...")) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
851 (insert-as-menu-map (make-sparse-keymap "Insert As...")) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
852 (write-as-menu-map (make-sparse-keymap "Write As...")) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
853 (translate-to-menu-map (make-sparse-keymap "Translate to...")) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
854 (translate-from-menu-map (make-sparse-keymap "Translate from...")) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
855 (menu menu-bar-file-menu)) |
79357
07da999919b9
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
78274
diff
changeset
|
856 |
58111
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
857 (define-key menu [load-as-separator] '("--")) |
18228 | 858 |
58111
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
859 (define-key menu [load-as] '("Load As..." . iso-cvt-load-as)) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
860 (fset 'iso-cvt-load-as load-as-menu-map) |
7260 | 861 |
58111
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
862 ;;(define-key menu [insert-as] '("Insert As..." . iso-cvt-insert-as)) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
863 (fset 'iso-cvt-insert-as insert-as-menu-map) |
18228 | 864 |
58111
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
865 (define-key menu [write-as] '("Write As..." . iso-cvt-write-as)) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
866 (fset 'iso-cvt-write-as write-as-menu-map) |
18228 | 867 |
58111
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
868 (define-key menu [translate-separator] '("--")) |
18228 | 869 |
58111
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
870 (define-key menu [translate-to] '("Translate to..." . iso-cvt-translate-to)) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
871 (fset 'iso-cvt-translate-to translate-to-menu-map) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
872 |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
873 (define-key menu [translate-from] '("Translate from..." . iso-cvt-translate-from)) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
874 (fset 'iso-cvt-translate-from translate-from-menu-map) |
7260 | 875 |
58156
f5edf9775fb5
(iso-cvt-define-menu): Fix typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58111
diff
changeset
|
876 (dolist (file-type (reverse format-alist)) |
58111
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
877 (let ((name (car file-type)) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
878 (str-name (cadr file-type))) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
879 (if (stringp str-name) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
880 (progn |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
881 (define-key load-as-menu-map (vector name) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
882 (cons str-name |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
883 `(lambda (file) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
884 (interactive ,(format "FFind file (as %s): " name)) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
885 (format-find-file file ',name)))) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
886 (define-key insert-as-menu-map (vector name) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
887 (cons str-name |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
888 `(lambda (file) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
889 (interactive (format "FInsert file (as %s): " ,name)) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
890 (format-insert-file file ',name)))) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
891 (define-key write-as-menu-map (vector name) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
892 (cons str-name |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
893 `(lambda (file) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
894 (interactive (format "FWrite file (as %s): " ,name)) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
895 (format-write-file file ',name)))) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
896 (define-key translate-to-menu-map (vector name) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
897 (cons str-name |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
898 `(lambda () |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
899 (interactive) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
900 (format-encode-buffer ',name)))) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
901 (define-key translate-from-menu-map (vector name) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
902 (cons str-name |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
903 `(lambda () |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
904 (interactive) |
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
905 (format-decode-buffer ',name)))))))))) |
28393 | 906 |
907 (provide 'iso-cvt) | |
7260 | 908 |
58111
df6e58bf1b9e
(iso-cvt-define-menu): Clean up namespace.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58007
diff
changeset
|
909 ;; arch-tag: 64ae843f-ed0e-43e1-ba50-ffd581b90840 |
7260 | 910 ;;; iso-cvt.el ends here |