annotate lisp/international/iso-cvt.el @ 60385:17d5c7245a46

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