Mercurial > emacs
annotate lisp/international/iso-cvt.el @ 14030:33b3923c36b9
Undo previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 05 Jan 1996 07:18:50 +0000 |
parents | 9623505c1482 |
children | 83f275dcd93a |
rev | line source |
---|---|
13993 | 1 ;;; iso-cvt.el -- translate to ISO 8859-1 from/to net/TeX conventions |
13337 | 2 ;; This file was formerly called gm-lingo.el. |
3 | |
4 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. | |
7260 | 5 |
6 ;; Author: Michael Gschwind <mike@vlsivie.tuwien.ac.at> | |
7 ;; Keywords: tex, iso, latin, i18n | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
24 | |
25 ;;; Commentary: | |
10434
5cb0747f521f
(iso-aggressive-german-trans-tab): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
10081
diff
changeset
|
26 ;; This lisp code serves two purposes, both of which involve |
7425
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
27 ;; the translation of various conventions for representing European |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
28 ;; character sets to ISO 8859-1. |
7260 | 29 |
7425
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
30 ; Net support: |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
31 ; Various conventions exist in Newsgroups on how to represent national |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
32 ; characters. The functions provided here translate these net conventions |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
33 ; to ISO. |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
34 ; |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
35 ; Calling `iso-german' will turn the net convention for umlauts ("a etc.) |
13993 | 36 ; into ISO latin1 umlauts for easy reading. |
7425
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
37 ; 'iso-spanish' will turn net conventions for representing spanish |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
38 ; to ISO latin1. (Note that accents are omitted in news posts most |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
39 ; of the time, only enye is escaped.) |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
40 |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
41 ; TeX support |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
42 ; This mode installs hooks which change TeX files to ISO Latin-1 for |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
43 ; simplified editing. When the TeX file is saved, ISO latin1 characters are |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
44 ; translated back to escape sequences. |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
45 ; |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
46 ; An alternative is a TeX style that handles 8 bit ISO files |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
47 ; (available on ftp.vlsivie.tuwien.ac.at in /pub/8bit) |
7260 | 48 ; - but these files are difficult to transmit ... so while the net is |
49 ; still @ 7 bit this may be useful | |
50 | |
7425
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
51 ;; TO DO: |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
52 ; The net support should install hooks (like TeX support does) |
13993 | 53 ; which recognizes certain news groups and translates all articles from |
7425
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
54 ; those groups. |
7260 | 55 ; |
7425
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
56 ; Cover more cases for translation (There is an infinite number of ways to |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
57 ; represent accented characters in TeX) |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
58 |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
59 ;; SEE ALSO: |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
60 ; If you are interested in questions related to using the ISO 8859-1 |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
61 ; characters set (configuring emacs, Unix, etc. to use ISO), then you |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
62 ; can get the ISO 8859-1 FAQ via anonymous ftp from |
eb4b69bf2d4e
(iso-gtex2iso-trans-tab): Redorder this list.
Richard M. Stallman <rms@gnu.org>
parents:
7260
diff
changeset
|
63 ; ftp.vlsivie.tuwien.ac.at in /pub/bit/FAQ-ISO-8859-1 |
7260 | 64 |
65 ;;; Code: | |
66 | |
67 (provide 'iso-cvt) | |
68 | |
69 (defvar iso-spanish-trans-tab | |
70 '( | |
71 ("~n" "ñ") | |
72 ("\([a-zA-Z]\)#" "\\1ñ") | |
73 ("~N" "Ñ") | |
74 ("\\([-a-zA-Z\"`]\\)\"u" "\\1ü") | |
75 ("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü") | |
76 ("\\([-a-zA-Z]\\)'o" "\\1ó") | |
77 ("\\([-a-zA-Z]\\)'O" "\\Ó") | |
78 ("\\([-a-zA-Z]\\)'e" "\\1é") | |
79 ("\\([-a-zA-Z]\\)'E" "\\1É") | |
80 ("\\([-a-zA-Z]\\)'a" "\\1á") | |
81 ("\\([-a-zA-Z]\\)'A" "\\1A") | |
82 ("\\([-a-zA-Z]\\)'i" "\\1í") | |
83 ("\\([-a-zA-Z]\\)'I" "\\1Í") | |
84 ) | |
85 "Spanish translation table.") | |
86 | |
87 (defun iso-translate-conventions (trans-tab) | |
7850
b6f3dd2511bc
(iso-translate-conventions): Get rid of interactive spec.
Richard M. Stallman <rms@gnu.org>
parents:
7831
diff
changeset
|
88 "Use the translation table TRANS-TAB to translate the current buffer." |
7260 | 89 (save-excursion |
90 (goto-char (point-min)) | |
91 (let ((work-tab trans-tab) | |
7831
343a21c51172
(iso-translate-conventions): Use case-dependent search and don't alter case.
Richard M. Stallman <rms@gnu.org>
parents:
7425
diff
changeset
|
92 (buffer-read-only nil) |
343a21c51172
(iso-translate-conventions): Use case-dependent search and don't alter case.
Richard M. Stallman <rms@gnu.org>
parents:
7425
diff
changeset
|
93 (case-fold-search nil)) |
7260 | 94 (while work-tab |
95 (save-excursion | |
96 (let ((trans-this (car work-tab))) | |
97 (while (re-search-forward (car trans-this) nil t) | |
7831
343a21c51172
(iso-translate-conventions): Use case-dependent search and don't alter case.
Richard M. Stallman <rms@gnu.org>
parents:
7425
diff
changeset
|
98 (replace-match (car (cdr trans-this)) t nil))) |
7260 | 99 (setq work-tab (cdr work-tab))))))) |
100 | |
101 (defun iso-spanish () | |
102 "Translate net conventions for Spanish to ISO 8859-1." | |
103 (interactive) | |
104 (iso-translate-conventions iso-spanish-trans-tab)) | |
105 | |
106 (defvar iso-aggressive-german-trans-tab | |
107 '( | |
108 ("\"a" "ä") | |
109 ("\"A" "Ä") | |
110 ("\"o" "ö") | |
111 ("\"O" "Ö") | |
112 ("\"u" "ü") | |
113 ("\"U" "Ü") | |
114 ("\"s" "ß") | |
115 ("\\\\3" "ß") | |
116 ) | |
117 "German translation table. | |
10434
5cb0747f521f
(iso-aggressive-german-trans-tab): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
10081
diff
changeset
|
118 This table uses an aggressive translation approach and may erroneously |
5cb0747f521f
(iso-aggressive-german-trans-tab): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
10081
diff
changeset
|
119 translate too much.") |
7260 | 120 |
121 (defvar iso-conservative-german-trans-tab | |
122 '( | |
123 ("\\([-a-zA-Z\"`]\\)\"a" "\\1ä") | |
124 ("\\([-a-zA-Z\"`]\\)\"A" "\\1Ä") | |
125 ("\\([-a-zA-Z\"`]\\)\"o" "\\1ö") | |
126 ("\\([-a-zA-Z\"`]\\)\"O" "\\1Ö") | |
127 ("\\([-a-zA-Z\"`]\\)\"u" "\\1ü") | |
128 ("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü") | |
129 ("\\([-a-zA-Z\"`]\\)\"s" "\\1ß") | |
130 ("\\([-a-zA-Z\"`]\\)\\\\3" "\\1ß") | |
131 ) | |
132 "German translation table. | |
133 This table uses a conservative translation approach and may translate too | |
134 little.") | |
135 | |
136 | |
137 (defvar iso-german-trans-tab iso-aggressive-german-trans-tab | |
138 "Currently active translation table for German.") | |
139 | |
140 (defun iso-german () | |
141 "Translate net conventions for German to ISO 8859-1." | |
142 (interactive) | |
143 (iso-translate-conventions iso-german-trans-tab)) | |
144 | |
145 (defvar iso-iso2tex-trans-tab | |
146 '( | |
147 ("ä" "{\\\\\"a}") | |
148 ("à" "{\\\\`a}") | |
149 ("á" "{\\\\'a}") | |
150 ("ã" "{\\\\~a}") | |
151 ("â" "{\\\\^a}") | |
152 ("ë" "{\\\\\"e}") | |
153 ("è" "{\\\\`e}") | |
154 ("é" "{\\\\'e}") | |
155 ("ê" "{\\\\^e}") | |
156 ("ï" "{\\\\\"\\\\i}") | |
157 ("ì" "{\\\\`\\\\i}") | |
158 ("í" "{\\\\'\\\\i}") | |
159 ("î" "{\\\\^\\\\i}") | |
160 ("ö" "{\\\\\"o}") | |
161 ("ò" "{\\\\`o}") | |
162 ("ó" "{\\\\'o}") | |
163 ("õ" "{\\\\~o}") | |
164 ("ô" "{\\\\^o}") | |
165 ("ü" "{\\\\\"u}") | |
166 ("ù" "{\\\\`u}") | |
167 ("ú" "{\\\\'u}") | |
168 ("û" "{\\\\^u}") | |
169 ("Ä" "{\\\\\"A}") | |
170 ("À" "{\\\\`A}") | |
171 ("Á" "{\\\\'A}") | |
172 ("Ã" "{\\\\~A}") | |
173 ("Â" "{\\\\^A}") | |
174 ("Ë" "{\\\\\"E}") | |
175 ("È" "{\\\\`E}") | |
176 ("É" "{\\\\'E}") | |
177 ("Ê" "{\\\\^E}") | |
178 ("Ï" "{\\\\\"I}") | |
179 ("Ì" "{\\\\`I}") | |
180 ("Í" "{\\\\'I}") | |
181 ("Î" "{\\\\^I}") | |
182 ("Ö" "{\\\\\"O}") | |
183 ("Ò" "{\\\\`O}") | |
184 ("Ó" "{\\\\'O}") | |
185 ("Õ" "{\\\\~O}") | |
186 ("Ô" "{\\\\^O}") | |
187 ("Ü" "{\\\\\"U}") | |
188 ("Ù" "{\\\\`U}") | |
189 ("Ú" "{\\\\'U}") | |
190 ("Û" "{\\\\^U}") | |
191 ("ñ" "{\\\\~n}") | |
192 ("Ñ" "{\\\\~N}") | |
193 ("ç" "{\\\\c c}") | |
194 ("Ç" "{\\\\c C}") | |
195 ("ß" "{\\\\ss}") | |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
196 ("\306" "{\\\\AE}") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
197 ("\346" "{\\\\ae}") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
198 ("\305" "{\\\\AA}") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
199 ("\345" "{\\\\aa}") |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
200 ("\251" "{\\\\copyright}") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
201 ("£" "{\\\\pounds}") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
202 ("¶" "{\\\\P}") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
203 ("§" "{\\\\S}") |
7260 | 204 ("¿" "{?`}") |
205 ("¡" "{!`}") | |
206 ) | |
207 "Translation table for translating ISO 8859-1 characters to TeX sequences.") | |
208 | |
209 | |
210 | |
211 | |
212 (defun iso-iso2tex () | |
213 "Translate ISO 8859-1 characters to TeX sequences." | |
214 (interactive) | |
215 (iso-translate-conventions iso-iso2tex-trans-tab)) | |
216 | |
217 | |
218 (defvar iso-tex2iso-trans-tab | |
219 '( | |
220 ("{\\\\\"a}" "ä") | |
221 ("{\\\\`a}" "à") | |
222 ("{\\\\'a}" "á") | |
223 ("{\\\\~a}" "ã") | |
224 ("{\\\\^a}" "â") | |
225 ("{\\\\\"e}" "ë") | |
226 ("{\\\\`e}" "è") | |
227 ("{\\\\'e}" "é") | |
228 ("{\\\\^e}" "ê") | |
229 ("{\\\\\"\\\\i}" "ï") | |
230 ("{\\\\`\\\\i}" "ì") | |
231 ("{\\\\'\\\\i}" "í") | |
232 ("{\\\\^\\\\i}" "î") | |
233 ("{\\\\\"i}" "ï") | |
234 ("{\\\\`i}" "ì") | |
235 ("{\\\\'i}" "í") | |
236 ("{\\\\^i}" "î") | |
237 ("{\\\\\"o}" "ö") | |
238 ("{\\\\`o}" "ò") | |
239 ("{\\\\'o}" "ó") | |
240 ("{\\\\~o}" "õ") | |
241 ("{\\\\^o}" "ô") | |
242 ("{\\\\\"u}" "ü") | |
243 ("{\\\\`u}" "ù") | |
244 ("{\\\\'u}" "ú") | |
245 ("{\\\\^u}" "û") | |
246 ("{\\\\\"A}" "Ä") | |
247 ("{\\\\`A}" "À") | |
248 ("{\\\\'A}" "Á") | |
249 ("{\\\\~A}" "Ã") | |
250 ("{\\\\^A}" "Â") | |
251 ("{\\\\\"E}" "Ë") | |
252 ("{\\\\`E}" "È") | |
253 ("{\\\\'E}" "É") | |
254 ("{\\\\^E}" "Ê") | |
255 ("{\\\\\"I}" "Ï") | |
256 ("{\\\\`I}" "Ì") | |
257 ("{\\\\'I}" "Í") | |
258 ("{\\\\^I}" "Î") | |
259 ("{\\\\\"O}" "Ö") | |
260 ("{\\\\`O}" "Ò") | |
261 ("{\\\\'O}" "Ó") | |
262 ("{\\\\~O}" "Õ") | |
263 ("{\\\\^O}" "Ô") | |
264 ("{\\\\\"U}" "Ü") | |
265 ("{\\\\`U}" "Ù") | |
266 ("{\\\\'U}" "Ú") | |
267 ("{\\\\^U}" "Û") | |
268 ("{\\\\~n}" "ñ") | |
269 ("{\\\\~N}" "Ñ") | |
270 ("{\\\\c c}" "ç") | |
271 ("{\\\\c C}" "Ç") | |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
272 ("\\\\\"a" "ä") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
273 ("\\\\`a" "à") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
274 ("\\\\'a" "á") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
275 ("\\\\~a" "ã") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
276 ("\\\\^a" "â") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
277 ("\\\\\"e" "ë") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
278 ("\\\\`e" "è") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
279 ("\\\\'e" "é") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
280 ("\\\\^e" "ê") |
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 ("\\\\\"i" "ï") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
286 ("\\\\`i" "ì") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
287 ("\\\\'i" "í") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
288 ("\\\\^i" "î") |
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 ("\\\\`o" "ò") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
291 ("\\\\'o" "ó") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
292 ("\\\\~o" "õ") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
293 ("\\\\^o" "ô") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
294 ("\\\\\"u" "ü") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
295 ("\\\\`u" "ù") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
296 ("\\\\'u" "ú") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
297 ("\\\\^u" "û") |
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 ("\\\\`A" "À") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
300 ("\\\\'A" "Á") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
301 ("\\\\~A" "Ã") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
302 ("\\\\^A" "Â") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
303 ("\\\\\"E" "Ë") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
304 ("\\\\`E" "È") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
305 ("\\\\'E" "É") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
306 ("\\\\^E" "Ê") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
307 ("\\\\\"I" "Ï") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
308 ("\\\\`I" "Ì") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
309 ("\\\\'I" "Í") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
310 ("\\\\^I" "Î") |
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 ("\\\\`O" "Ò") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
313 ("\\\\'O" "Ó") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
314 ("\\\\~O" "Õ") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
315 ("\\\\^O" "Ô") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
316 ("\\\\\"U" "Ü") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
317 ("\\\\`U" "Ù") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
318 ("\\\\'U" "Ú") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
319 ("\\\\^U" "Û") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
320 ("\\\\~n" "ñ") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
321 ("\\\\~N" "Ñ") |
7260 | 322 ("\\\\\"{a}" "ä") |
323 ("\\\\`{a}" "à") | |
324 ("\\\\'{a}" "á") | |
325 ("\\\\~{a}" "ã") | |
326 ("\\\\^{a}" "â") | |
327 ("\\\\\"{e}" "ë") | |
328 ("\\\\`{e}" "è") | |
329 ("\\\\'{e}" "é") | |
330 ("\\\\^{e}" "ê") | |
331 ("\\\\\"{\\\\i}" "ï") | |
332 ("\\\\`{\\\\i}" "ì") | |
333 ("\\\\'{\\\\i}" "í") | |
334 ("\\\\^{\\\\i}" "î") | |
335 ("\\\\\"{i}" "ï") | |
336 ("\\\\`{i}" "ì") | |
337 ("\\\\'{i}" "í") | |
338 ("\\\\^{i}" "î") | |
339 ("\\\\\"{o}" "ö") | |
340 ("\\\\`{o}" "ò") | |
341 ("\\\\'{o}" "ó") | |
342 ("\\\\~{o}" "õ") | |
343 ("\\\\^{o}" "ô") | |
344 ("\\\\\"{u}" "ü") | |
345 ("\\\\`{u}" "ù") | |
346 ("\\\\'{u}" "ú") | |
347 ("\\\\^{u}" "û") | |
348 ("\\\\\"{A}" "Ä") | |
349 ("\\\\`{A}" "À") | |
350 ("\\\\'{A}" "Á") | |
351 ("\\\\~{A}" "Ã") | |
352 ("\\\\^{A}" "Â") | |
353 ("\\\\\"{E}" "Ë") | |
354 ("\\\\`{E}" "È") | |
355 ("\\\\'{E}" "É") | |
356 ("\\\\^{E}" "Ê") | |
357 ("\\\\\"{I}" "Ï") | |
358 ("\\\\`{I}" "Ì") | |
359 ("\\\\'{I}" "Í") | |
360 ("\\\\^{I}" "Î") | |
361 ("\\\\\"{O}" "Ö") | |
362 ("\\\\`{O}" "Ò") | |
363 ("\\\\'{O}" "Ó") | |
364 ("\\\\~{O}" "Õ") | |
365 ("\\\\^{O}" "Ô") | |
366 ("\\\\\"{U}" "Ü") | |
367 ("\\\\`{U}" "Ù") | |
368 ("\\\\'{U}" "Ú") | |
369 ("\\\\^{U}" "Û") | |
370 ("\\\\~{n}" "ñ") | |
371 ("\\\\~{N}" "Ñ") | |
372 ("\\\\c{c}" "ç") | |
373 ("\\\\c{C}" "Ç") | |
374 ("{\\\\ss}" "ß") | |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
375 ("{\\\\AE}" "\306") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
376 ("{\\\\ae}" "\346") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
377 ("{\\\\AA}" "\305") |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
378 ("{\\\\aa}" "\345") |
7861
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
379 ("{\\\\copyright}" "\251") |
8996abee8718
(iso-iso2tex-trans-tab): Change a few characters.
Richard M. Stallman <rms@gnu.org>
parents:
7850
diff
changeset
|
380 ("\\\\copyright{}" "\251") |
10081
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
381 ("{\\\\pounds}" "£" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
382 ("{\\\\P}" "¶" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
383 ("{\\\\S}" "§" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
384 ("\\\\pounds{}" "£" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
385 ("\\\\P{}" "¶" ) |
5e4ef35c904b
Handle pilcrow, paragraph and pound signs.
Richard M. Stallman <rms@gnu.org>
parents:
8538
diff
changeset
|
386 ("\\\\S{}" "§" ) |
8538
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
387 ("{\\?`}" "¿") |
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
388 ("{!`}" "¡") |
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
389 ("\\?`" "¿") |
7260 | 390 ("!`" "¡") |
391 ) | |
392 "Translation table for translating TeX sequences to ISO 8859-1 characters. | |
393 This table is not exhaustive (and due to TeX's power can never be). It only | |
394 contains commonly used sequences.") | |
395 | |
396 (defun iso-tex2iso () | |
397 "Translate TeX sequences to ISO 8859-1 characters." | |
398 (interactive) | |
399 (iso-translate-conventions iso-tex2iso-trans-tab)) | |
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. | |
584 This table is not exhaustive (and due to TeX's power can never be). It only | |
585 contains commonly used sequences.") | |
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 | |
651 (defun iso-gtex2iso () | |
652 "Translate German TeX sequences to ISO 8859-1 characters." | |
653 (interactive) | |
654 (iso-translate-conventions iso-gtex2iso-trans-tab)) | |
655 | |
656 | |
657 (defun iso-iso2gtex () | |
658 "Translate ISO 8859-1 characters to German TeX sequences." | |
659 (interactive) | |
660 (iso-translate-conventions iso-iso2gtex-trans-tab)) | |
661 | |
662 | |
663 (defun iso-german-tex-p () | |
664 "Check if tex buffer is German LaTeX." | |
665 (save-excursion | |
8538
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
666 (save-restriction |
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
667 (widen) |
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
668 (goto-char (point-min)) |
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
669 (re-search-forward "\\\\documentstyle\\[.*german.*\\]" nil t)))) |
7260 | 670 |
671 (defun iso-fix-iso2tex () | |
672 "Turn ISO 8859-1 (aka. ISO Latin-1) buffer into TeX sequences. | |
673 If German TeX is used, German TeX sequences are generated." | |
674 (if (or (equal major-mode 'latex-mode) | |
675 (equal major-mode 'LaTeX-mode)) ; AucTeX wants this | |
676 (if (iso-german-tex-p) | |
677 (iso-iso2gtex) | |
678 (iso-iso2tex))) | |
679 (if (or (equal major-mode 'tex-mode) | |
8433
b14b118e6724
(iso-fix-iso2tex, iso-fix-tex2iso): Check plain-text-mode.
Richard M. Stallman <rms@gnu.org>
parents:
7861
diff
changeset
|
680 (equal major-mode 'TeX-mode) ; AucTeX wants this |
8538
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
681 (equal major-mode 'plain-tex-mode)) |
7260 | 682 (iso-iso2tex))) |
683 | |
684 (defun iso-fix-tex2iso () | |
685 "Turn TeX sequences into ISO 8859-1 (aka. ISO Latin-1) characters. | |
13993 | 686 This function recognizes German TeX buffers." |
7260 | 687 (if (or (equal major-mode 'latex-mode) |
688 (equal major-mode 'Latex-mode)) ; AucTeX wants this | |
689 (if (iso-german-tex-p) | |
690 (iso-gtex2iso) | |
691 (iso-tex2iso))) | |
692 (if (or (equal major-mode 'tex-mode) | |
8433
b14b118e6724
(iso-fix-iso2tex, iso-fix-tex2iso): Check plain-text-mode.
Richard M. Stallman <rms@gnu.org>
parents:
7861
diff
changeset
|
693 (equal major-mode 'TeX-mode) ; AucTeX wants this |
8538
94145efe2ad8
(iso-tex2iso-trans-tab): Put the sequences with braces
Richard M. Stallman <rms@gnu.org>
parents:
8433
diff
changeset
|
694 (equal major-mode 'plain-tex-mode)) |
7260 | 695 (iso-tex2iso))) |
696 | |
697 (defun iso-cvt-ffh () | |
10434
5cb0747f521f
(iso-aggressive-german-trans-tab): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
10081
diff
changeset
|
698 "find-file-hook for iso-cvt.el." |
7260 | 699 (iso-fix-tex2iso) |
700 (set-buffer-modified-p nil)) | |
701 | |
702 (defun iso-cvt-wfh () | |
10434
5cb0747f521f
(iso-aggressive-german-trans-tab): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
10081
diff
changeset
|
703 "write file hook for iso-cvt.el." |
7260 | 704 (iso-fix-iso2tex)) |
705 | |
706 (defun iso-cvt-ash () | |
10434
5cb0747f521f
(iso-aggressive-german-trans-tab): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
10081
diff
changeset
|
707 "after save hook for iso-cvt.el." |
7260 | 708 (iso-fix-tex2iso) |
709 (set-buffer-modified-p nil)) | |
710 | |
711 (add-hook 'find-file-hooks 'iso-cvt-ffh) | |
712 (add-hook 'write-file-hooks 'iso-cvt-wfh) | |
713 (add-hook 'after-save-hook 'iso-cvt-ash) | |
714 | |
715 ;;; iso-cvt.el ends here |