(defvar iso-spanish-trans-tab
'(
("~n" "ñ")
("\([a-zA-Z]\)#" "\\1ñ")
("~N" "Ñ")
("\\([-a-zA-Z\"`]\\)\"u" "\\1ü")
("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü")
("\\([-a-zA-Z]\\)'o" "\\1ó")
("\\([-a-zA-Z]\\)'O" "\\Ó")
("\\([-a-zA-Z]\\)'e" "\\1é")
("\\([-a-zA-Z]\\)'E" "\\1É")
("\\([-a-zA-Z]\\)'a" "\\1á")
("\\([-a-zA-Z]\\)'A" "\\1A")
("\\([-a-zA-Z]\\)'i" "\\1í")
("\\([-a-zA-Z]\\)'I" "\\1Í")
)
"Spanish translation table.")
(defun iso-translate-conventions (from to trans-tab)
"Use the translation table TRANS-TAB to translate the current buffer."
(save-excursion
(save-restriction
(narrow-to-region from to)
(goto-char from)
(let ((work-tab trans-tab)
(buffer-read-only nil)
(case-fold-search nil))
(while work-tab
(save-excursion
(let ((trans-this (car work-tab)))
(while (re-search-forward (car trans-this) nil t)
(replace-match (car (cdr trans-this)) t nil)))
(setq work-tab (cdr work-tab)))))
(point-max))))
(defun iso-spanish (from to &optional buffer)
"Translate net conventions for Spanish to ISO 8859-1.
The region between FROM and TO is translated using the table TRANS-TAB.
Optional arg BUFFER is ignored (for use in `format-alist')."
(interactive "*r")
(iso-translate-conventions from to iso-spanish-trans-tab))
(defvar iso-aggressive-german-trans-tab
'(
("\"a" "ä")
("\"A" "Ä")
("\"o" "ö")
("\"O" "Ö")
("\"u" "ü")
("\"U" "Ü")
("\"s" "ß")
("\\\\3" "ß")
)
"German translation table.
This table uses an aggressive translation approach and may erroneously
translate too much.")
(defvar iso-conservative-german-trans-tab
'(
("\\([-a-zA-Z\"`]\\)\"a" "\\1ä")
("\\([-a-zA-Z\"`]\\)\"A" "\\1Ä")
("\\([-a-zA-Z\"`]\\)\"o" "\\1ö")
("\\([-a-zA-Z\"`]\\)\"O" "\\1Ö")
("\\([-a-zA-Z\"`]\\)\"u" "\\1ü")
("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü")
("\\([-a-zA-Z\"`]\\)\"s" "\\1ß")
("\\([-a-zA-Z\"`]\\)\\\\3" "\\1ß")
)
"German translation table.
This table uses a conservative translation approach and may translate too
little.")
(defvar iso-german-trans-tab iso-aggressive-german-trans-tab
"Currently active translation table for German.")
(defun iso-german (from to &optional buffer)
"Translate net conventions for German to ISO 8859-1.
The region between FROM and TO is translated using the table TRANS-TAB.
Optional arg BUFFER is ignored (for use in `format-alist')."
(interactive "*r")
(iso-translate-conventions from to iso-german-trans-tab))
(defvar iso-iso2tex-trans-tab
'(
("ä" "{\\\\\"a}")
("à" "{\\\\`a}")
("á" "{\\\\'a}")
("ã" "{\\\\~a}")
("â" "{\\\\^a}")
("ë" "{\\\\\"e}")
("è" "{\\\\`e}")
("é" "{\\\\'e}")
("ê" "{\\\\^e}")
("ï" "{\\\\\"\\\\i}")
("ì" "{\\\\`\\\\i}")
("í" "{\\\\'\\\\i}")
("î" "{\\\\^\\\\i}")
("ö" "{\\\\\"o}")
("ò" "{\\\\`o}")
("ó" "{\\\\'o}")
("õ" "{\\\\~o}")
("ô" "{\\\\^o}")
("ü" "{\\\\\"u}")
("ù" "{\\\\`u}")
("ú" "{\\\\'u}")
("û" "{\\\\^u}")
("Ä" "{\\\\\"A}")
("À" "{\\\\`A}")
("Á" "{\\\\'A}")
("Ã" "{\\\\~A}")
("Â" "{\\\\^A}")
("Ë" "{\\\\\"E}")
("È" "{\\\\`E}")
("É" "{\\\\'E}")
("Ê" "{\\\\^E}")
("Ï" "{\\\\\"I}")
("Ì" "{\\\\`I}")
("Í" "{\\\\'I}")
("Î" "{\\\\^I}")
("Ö" "{\\\\\"O}")
("Ò" "{\\\\`O}")
("Ó" "{\\\\'O}")
("Õ" "{\\\\~O}")
("Ô" "{\\\\^O}")
("Ü" "{\\\\\"U}")
("Ù" "{\\\\`U}")
("Ú" "{\\\\'U}")
("Û" "{\\\\^U}")
("ñ" "{\\\\~n}")
("Ñ" "{\\\\~N}")
("ç" "{\\\\c c}")
("Ç" "{\\\\c C}")
("ß" "{\\\\ss}")
("\306" "{\\\\AE}")
("\346" "{\\\\ae}")
("\305" "{\\\\AA}")
("\345" "{\\\\aa}")
("\251" "{\\\\copyright}")
("£" "{\\\\pounds}")
("¶" "{\\\\P}")
("§" "{\\\\S}")
("¿" "{?`}")
("¡" "{!`}")
)
"Translation table for translating ISO 8859-1 characters to TeX sequences.")
(defun iso-iso2tex (from to &optional buffer)
"Translate ISO 8859-1 characters to TeX sequences.
The region between FROM and TO is translated using the table TRANS-TAB.
Optional arg BUFFER is ignored (for use in `format-alist')."
(interactive "*r")
(iso-translate-conventions from to iso-iso2tex-trans-tab))
(defvar iso-tex2iso-trans-tab
'(
("{\\\\\"a}" "ä")
("{\\\\`a}" "à")
("{\\\\'a}" "á")
("{\\\\~a}" "ã")
("{\\\\^a}" "â")
("{\\\\\"e}" "ë")
("{\\\\`e}" "è")
("{\\\\'e}" "é")
("{\\\\^e}" "ê")
("{\\\\\"\\\\i}" "ï")
("{\\\\`\\\\i}" "ì")
("{\\\\'\\\\i}" "í")
("{\\\\^\\\\i}" "î")
("{\\\\\"i}" "ï")
("{\\\\`i}" "ì")
("{\\\\'i}" "í")
("{\\\\^i}" "î")
("{\\\\\"o}" "ö")
("{\\\\`o}" "ò")
("{\\\\'o}" "ó")
("{\\\\~o}" "õ")
("{\\\\^o}" "ô")
("{\\\\\"u}" "ü")
("{\\\\`u}" "ù")
("{\\\\'u}" "ú")
("{\\\\^u}" "û")
("{\\\\\"A}" "Ä")
("{\\\\`A}" "À")
("{\\\\'A}" "Á")
("{\\\\~A}" "Ã")
("{\\\\^A}" "Â")
("{\\\\\"E}" "Ë")
("{\\\\`E}" "È")
("{\\\\'E}" "É")
("{\\\\^E}" "Ê")
("{\\\\\"I}" "Ï")
("{\\\\`I}" "Ì")
("{\\\\'I}" "Í")
("{\\\\^I}" "Î")
("{\\\\\"O}" "Ö")
("{\\\\`O}" "Ò")
("{\\\\'O}" "Ó")
("{\\\\~O}" "Õ")
("{\\\\^O}" "Ô")
("{\\\\\"U}" "Ü")
("{\\\\`U}" "Ù")
("{\\\\'U}" "Ú")
("{\\\\^U}" "Û")
("{\\\\~n}" "ñ")
("{\\\\~N}" "Ñ")
("{\\\\c c}" "ç")
("{\\\\c C}" "Ç")
("\\\\\"a" "ä")
("\\\\`a" "à")
("\\\\'a" "á")
("\\\\~a" "ã")
("\\\\^a" "â")
("\\\\\"e" "ë")
("\\\\`e" "è")
("\\\\'e" "é")
("\\\\^e" "ê")
("\\\\\"\\\\i *\n\n" "ï\n\n")
("\\\\\"\\\\i *\n?" "ï")
("\\\\`\\\\i *\n\n" "ì\n\n")
("\\\\`\\\\i *\n?" "ì")
("\\\\'\\\\i *\n\n" "í\n\n")
("\\\\'\\\\i *\n?" "í")
("\\\\^\\\\i *\n\n" "î\n\n")
("\\\\^\\\\i *\n?" "î")
("\\\\\"i" "ï")
("\\\\`i" "ì")
("\\\\'i" "í")
("\\\\^i" "î")
("\\\\\"o" "ö")
("\\\\`o" "ò")
("\\\\'o" "ó")
("\\\\~o" "õ")
("\\\\^o" "ô")
("\\\\\"u" "ü")
("\\\\`u" "ù")
("\\\\'u" "ú")
("\\\\^u" "û")
("\\\\\"A" "Ä")
("\\\\`A" "À")
("\\\\'A" "Á")
("\\\\~A" "Ã")
("\\\\^A" "Â")
("\\\\\"E" "Ë")
("\\\\`E" "È")
("\\\\'E" "É")
("\\\\^E" "Ê")
("\\\\\"I" "Ï")
("\\\\`I" "Ì")
("\\\\'I" "Í")
("\\\\^I" "Î")
("\\\\\"O" "Ö")
("\\\\`O" "Ò")
("\\\\'O" "Ó")
("\\\\~O" "Õ")
("\\\\^O" "Ô")
("\\\\\"U" "Ü")
("\\\\`U" "Ù")
("\\\\'U" "Ú")
("\\\\^U" "Û")
("\\\\~n" "ñ")
("\\\\~N" "Ñ")
("\\\\\"{a}" "ä")
("\\\\`{a}" "à")
("\\\\'{a}" "á")
("\\\\~{a}" "ã")
("\\\\^{a}" "â")
("\\\\\"{e}" "ë")
("\\\\`{e}" "è")
("\\\\'{e}" "é")
("\\\\^{e}" "ê")
("\\\\\"{\\\\i}" "ï")
("\\\\`{\\\\i}" "ì")
("\\\\'{\\\\i}" "í")
("\\\\^{\\\\i}" "î")
("\\\\\"{i}" "ï")
("\\\\`{i}" "ì")
("\\\\'{i}" "í")
("\\\\^{i}" "î")
("\\\\\"{o}" "ö")
("\\\\`{o}" "ò")
("\\\\'{o}" "ó")
("\\\\~{o}" "õ")
("\\\\^{o}" "ô")
("\\\\\"{u}" "ü")
("\\\\`{u}" "ù")
("\\\\'{u}" "ú")
("\\\\^{u}" "û")
("\\\\\"{A}" "Ä")
("\\\\`{A}" "À")
("\\\\'{A}" "Á")
("\\\\~{A}" "Ã")
("\\\\^{A}" "Â")
("\\\\\"{E}" "Ë")
("\\\\`{E}" "È")
("\\\\'{E}" "É")
("\\\\^{E}" "Ê")
("\\\\\"{I}" "Ï")
("\\\\`{I}" "Ì")
("\\\\'{I}" "Í")
("\\\\^{I}" "Î")
("\\\\\"{O}" "Ö")
("\\\\`{O}" "Ò")
("\\\\'{O}" "Ó")
("\\\\~{O}" "Õ")
("\\\\^{O}" "Ô")
("\\\\\"{U}" "Ü")
("\\\\`{U}" "Ù")
("\\\\'{U}" "Ú")
("\\\\^{U}" "Û")
("\\\\~{n}" "ñ")
("\\\\~{N}" "Ñ")
("\\\\c{c}" "ç")
("\\\\c{C}" "Ç")
("{\\\\ss}" "ß")
("{\\\\AE}" "\306")
("{\\\\ae}" "\346")
("{\\\\AA}" "\305")
("{\\\\aa}" "\345")
("{\\\\copyright}" "\251")
("\\\\copyright{}" "\251")
("{\\\\pounds}" "£" )
("{\\\\P}" "¶" )
("{\\\\S}" "§" )
("\\\\pounds{}" "£" )
("\\\\P{}" "¶" )
("\\\\S{}" "§" )
("{\\?`}" "¿")
("{!`}" "¡")
("\\?`" "¿")
("!`" "¡")
)
"Translation table for translating TeX sequences to ISO 8859-1 characters.
This table is not exhaustive (and due to TeX's power can never be). It only
contains commonly used sequences.")
(defun iso-tex2iso (from to &optional buffer)
"Translate TeX sequences to ISO 8859-1 characters.
The region between FROM and TO is translated using the table TRANS-TAB.
Optional arg BUFFER is ignored (for use in `format-alist')."
(interactive "*r")
(iso-translate-conventions from to iso-tex2iso-trans-tab))
(defvar iso-gtex2iso-trans-tab
'(
("{\\\\\"a}" "ä")
("{\\\\`a}" "à")
("{\\\\'a}" "á")
("{\\\\~a}" "ã")
("{\\\\^a}" "â")
("{\\\\\"e}" "ë")
("{\\\\`e}" "è")
("{\\\\'e}" "é")
("{\\\\^e}" "ê")
("{\\\\\"\\\\i}" "ï")
("{\\\\`\\\\i}" "ì")
("{\\\\'\\\\i}" "í")
("{\\\\^\\\\i}" "î")
("{\\\\\"i}" "ï")
("{\\\\`i}" "ì")
("{\\\\'i}" "í")
("{\\\\^i}" "î")
("{\\\\\"o}" "ö")
("{\\\\`o}" "ò")
("{\\\\'o}" "ó")
("{\\\\~o}" "õ")
("{\\\\^o}" "ô")
("{\\\\\"u}" "ü")
("{\\\\`u}" "ù")
("{\\\\'u}" "ú")
("{\\\\^u}" "û")
("{\\\\\"A}" "Ä")
("{\\\\`A}" "À")
("{\\\\'A}" "Á")
("{\\\\~A}" "Ã")
("{\\\\^A}" "Â")
("{\\\\\"E}" "Ë")
("{\\\\`E}" "È")
("{\\\\'E}" "É")
("{\\\\^E}" "Ê")
("{\\\\\"I}" "Ï")
("{\\\\`I}" "Ì")
("{\\\\'I}" "Í")
("{\\\\^I}" "Î")
("{\\\\\"O}" "Ö")
("{\\\\`O}" "Ò")
("{\\\\'O}" "Ó")
("{\\\\~O}" "Õ")
("{\\\\^O}" "Ô")
("{\\\\\"U}" "Ü")
("{\\\\`U}" "Ù")
("{\\\\'U}" "Ú")
("{\\\\^U}" "Û")
("{\\\\~n}" "ñ")
("{\\\\~N}" "Ñ")
("{\\\\c c}" "ç")
("{\\\\c C}" "Ç")
("\\\\\"a" "ä")
("\\\\`a" "à")
("\\\\'a" "á")
("\\\\~a" "ã")
("\\\\^a" "â")
("\\\\\"e" "ë")
("\\\\`e" "è")
("\\\\'e" "é")
("\\\\^e" "ê")
("\\\\\"\\\\i" "ï")
("\\\\`\\\\i" "ì")
("\\\\'\\\\i" "í")
("\\\\^\\\\i" "î")
("\\\\\"i" "ï")
("\\\\`i" "ì")
("\\\\'i" "í")
("\\\\^i" "î")
("\\\\\"o" "ö")
("\\\\`o" "ò")
("\\\\'o" "ó")
("\\\\~o" "õ")
("\\\\^o" "ô")
("\\\\\"u" "ü")
("\\\\`u" "ù")
("\\\\'u" "ú")
("\\\\^u" "û")
("\\\\\"A" "Ä")
("\\\\`A" "À")
("\\\\'A" "Á")
("\\\\~A" "Ã")
("\\\\^A" "Â")
("\\\\\"E" "Ë")
("\\\\`E" "È")
("\\\\'E" "É")
("\\\\^E" "Ê")
("\\\\\"I" "Ï")
("\\\\`I" "Ì")
("\\\\'I" "Í")
("\\\\^I" "Î")
("\\\\\"O" "Ö")
("\\\\`O" "Ò")
("\\\\'O" "Ó")
("\\\\~O" "Õ")
("\\\\^O" "Ô")
("\\\\\"U" "Ü")
("\\\\`U" "Ù")
("\\\\'U" "Ú")
("\\\\^U" "Û")
("\\\\~n" "ñ")
("\\\\~N" "Ñ")
("\\\\\"{a}" "ä")
("\\\\`{a}" "à")
("\\\\'{a}" "á")
("\\\\~{a}" "ã")
("\\\\^{a}" "â")
("\\\\\"{e}" "ë")
("\\\\`{e}" "è")
("\\\\'{e}" "é")
("\\\\^{e}" "ê")
("\\\\\"{\\\\i}" "ï")
("\\\\`{\\\\i}" "ì")
("\\\\'{\\\\i}" "í")
("\\\\^{\\\\i}" "î")
("\\\\\"{i}" "ï")
("\\\\`{i}" "ì")
("\\\\'{i}" "í")
("\\\\^{i}" "î")
("\\\\\"{o}" "ö")
("\\\\`{o}" "ò")
("\\\\'{o}" "ó")
("\\\\~{o}" "õ")
("\\\\^{o}" "ô")
("\\\\\"{u}" "ü")
("\\\\`{u}" "ù")
("\\\\'{u}" "ú")
("\\\\^{u}" "û")
("\\\\\"{A}" "Ä")
("\\\\`{A}" "À")
("\\\\'{A}" "Á")
("\\\\~{A}" "Ã")
("\\\\^{A}" "Â")
("\\\\\"{E}" "Ë")
("\\\\`{E}" "È")
("\\\\'{E}" "É")
("\\\\^{E}" "Ê")
("\\\\\"{I}" "Ï")
("\\\\`{I}" "Ì")
("\\\\'{I}" "Í")
("\\\\^{I}" "Î")
("\\\\\"{O}" "Ö")
("\\\\`{O}" "Ò")
("\\\\'{O}" "Ó")
("\\\\~{O}" "Õ")
("\\\\^{O}" "Ô")
("\\\\\"{U}" "Ü")
("\\\\`{U}" "Ù")
("\\\\'{U}" "Ú")
("\\\\^{U}" "Û")
("\\\\~{n}" "ñ")
("\\\\~{N}" "Ñ")
("\\\\c{c}" "ç")
("\\\\c{C}" "Ç")
("{\\\\ss}" "ß")
("{\\\\AE}" "\306")
("{\\\\ae}" "\346")
("{\\\\AA}" "\305")
("{\\\\aa}" "\345")
("{\\\\copyright}" "\251")
("\\\\copyright{}" "\251")
("{\\\\pounds}" "£" )
("{\\\\P}" "¶" )
("{\\\\S}" "§" )
("\\\\pounds{}" "£" )
("\\\\P{}" "¶" )
("\\\\S{}" "§" )
("?`" "¿")
("!`" "¡")
("{?`}" "¿")
("{!`}" "¡")
("\"a" "ä")
("\"A" "Ä")
("\"o" "ö")
("\"O" "Ö")
("\"u" "ü")
("\"U" "Ü")
("\"s" "ß")
("\\\\3" "ß")
)
"Translation table for translating German TeX sequences to ISO 8859-1.
This table is not exhaustive (and due to TeX's power can never be). It only
contains commonly used sequences.")
(defvar iso-iso2gtex-trans-tab
'(
("ä" "\"a")
("à" "{\\\\`a}")
("á" "{\\\\'a}")
("ã" "{\\\\~a}")
("â" "{\\\\^a}")
("ë" "{\\\\\"e}")
("è" "{\\\\`e}")
("é" "{\\\\'e}")
("ê" "{\\\\^e}")
("ï" "{\\\\\"\\\\i}")
("ì" "{\\\\`\\\\i}")
("í" "{\\\\'\\\\i}")
("î" "{\\\\^\\\\i}")
("ö" "\"o")
("ò" "{\\\\`o}")
("ó" "{\\\\'o}")
("õ" "{\\\\~o}")
("ô" "{\\\\^o}")
("ü" "\"u")
("ù" "{\\\\`u}")
("ú" "{\\\\'u}")
("û" "{\\\\^u}")
("Ä" "\"A")
("À" "{\\\\`A}")
("Á" "{\\\\'A}")
("Ã" "{\\\\~A}")
("Â" "{\\\\^A}")
("Ë" "{\\\\\"E}")
("È" "{\\\\`E}")
("É" "{\\\\'E}")
("Ê" "{\\\\^E}")
("Ï" "{\\\\\"I}")
("Ì" "{\\\\`I}")
("Í" "{\\\\'I}")
("Î" "{\\\\^I}")
("Ö" "\"O")
("Ò" "{\\\\`O}")
("Ó" "{\\\\'O}")
("Õ" "{\\\\~O}")
("Ô" "{\\\\^O}")
("Ü" "\"U")
("Ù" "{\\\\`U}")
("Ú" "{\\\\'U}")
("Û" "{\\\\^U}")
("ñ" "{\\\\~n}")
("Ñ" "{\\\\~N}")
("ç" "{\\\\c c}")
("Ç" "{\\\\c C}")
("ß" "\"s")
("\306" "{\\\\AE}")
("\346" "{\\\\ae}")
("\305" "{\\\\AA}")
("\345" "{\\\\aa}")
("\251" "{\\\\copyright}")
("£" "{\\\\pounds}")
("¶" "{\\\\P}")
("§" "{\\\\S}")
("¿" "{?`}")
("¡" "{!`}")
)
"Translation table for translating ISO 8859-1 characters to German TeX.")
(defun iso-gtex2iso (from to &optional buffer)
"Translate German TeX sequences to ISO 8859-1 characters.
The region between FROM and TO is translated using the table TRANS-TAB.
Optional arg BUFFER is ignored (for use in `format-alist')."
(interactive "*r")
(iso-translate-conventions from to iso-gtex2iso-trans-tab))
(defun iso-iso2gtex (from to &optional buffer)
"Translate ISO 8859-1 characters to German TeX sequences.
The region between FROM and TO is translated using the table TRANS-TAB.
Optional arg BUFFER is ignored (for use in `format-alist')."
(interactive "*r")
(iso-translate-conventions from to iso-iso2gtex-trans-tab))
(defvar iso-iso2duden-trans-tab
'(("ä" "ae")
("Ä" "Ae")
("ö" "oe")
("Ö" "Oe")
("ü" "ue")
("Ü" "Ue")
("ß" "ss")))
(defun iso-iso2duden (from to &optional buffer)
"Translate ISO 8859-1 characters to German TeX sequences.
The region between FROM and TO is translated using the table TRANS-TAB.
Optional arg BUFFER is ignored (for use in `format-alist')."
(interactive "*r")
(iso-translate-conventions from to iso-iso2duden-trans-tab))
(defvar iso-iso2sgml-trans-tab
'(("À" "À")
("Á" "Á")
("Â" "Â")
("Ã" "Ã")
("Ä" "Ä")
("Å" "Å")
("Æ" "Æ")
("Ç" "Ç")
("È" "È")
("É" "É")
("Ê" "Ê")
("Ë" "Ë")
("Ì" "Ì")
("Í" "Í")
("Î" "Î")
("Ï" "Ï")
("Ð" "Ð")
("Ñ" "Ñ")
("Ò" "Ò")
("Ó" "Ó")
("Ô" "Ô")
("Õ" "Õ")
("Ö" "Ö")
("Ø" "Ø")
("Ù" "Ù")
("Ú" "Ú")
("Û" "Û")
("Ü" "Ü")
("Ý" "Ý")
("Þ" "Þ")
("ß" "ß")
("à" "à")
("á" "á")
("â" "â")
("ã" "ã")
("ä" "ä")
("å" "å")
("æ" "æ")
("ç" "ç")
("è" "è")
("é" "é")
("ê" "ê")
("ë" "ë")
("ì" "ì")
("í" "í")
("î" "î")
("ï" "ï")
("ð" "ð")
("ñ" "ñ")
("ò" "ò")
("ó" "ó")
("ô" "ô")
("õ" "õ")
("ö" "ö")
("ø" "ø")
("ù" "ù")
("ú" "ú")
("û" "û")
("ü" "ü")
("ý" "ý")
("þ" "þ")
("ÿ" "ÿ")))
(defvar iso-sgml2iso-trans-tab
'(("À" "À")
("Á" "Á")
("Â" "Â")
("Ã" "Ã")
("Ä" "Ä")
("Å" "Å")
("Æ" "Æ")
("Ç" "Ç")
("È" "È")
("É" "É")
("Ê" "Ê")
("Ë" "Ë")
("Ì" "Ì")
("Í" "Í")
("Î" "Î")
("Ï" "Ï")
("Ð" "Ð")
("Ñ" "Ñ")
("Ò" "Ò")
("Ó" "Ó")
("Ô" "Ô")
("Õ" "Õ")
("Ö" "Ö")
("Ø" "Ø")
("Ù" "Ù")
("Ú" "Ú")
("Û" "Û")
("Ü" "Ü")
("Ý" "Ý")
("Þ" "Þ")
("ß" "ß")
("à" "à")
("á" "á")
("â" "â")
("ã" "ã")
("ä" "ä")
("å" "å")
("æ" "æ")
("ç" "ç")
("è" "è")
("é" "é")
("ê" "ê")
("ë" "ë")
("ì" "ì")
("í" "í")
("î" "î")
("ï" "ï")
("ð" "ð")
("ñ" "ñ")
(" " " ")
("ò" "ò")
("ó" "ó")
("ô" "ô")
("õ" "õ")
("ö" "ö")
("ø" "ø")
("ù" "ù")
("ú" "ú")
("û" "û")
("ü" "ü")
("ý" "ý")
("þ" "þ")
("ÿ" "ÿ")))
(defun iso-iso2sgml (from to &optional buffer)
"Translate ISO 8859-1 characters in the region to SGML entities.
The entities used are from \"ISO 8879:1986//ENTITIES Added Latin 1//EN\".
Optional arg BUFFER is ignored (for use in `format-alist')."
(interactive "*r")
(iso-translate-conventions from to iso-iso2sgml-trans-tab))
(defun iso-sgml2iso (from to &optional buffer)
"Translate SGML entities in the region to ISO 8859-1 characters.
The entities used are from \"ISO 8879:1986//ENTITIES Added Latin 1//EN\".
Optional arg BUFFER is ignored (for use in `format-alist')."
(interactive "*r")
(iso-translate-conventions from to iso-sgml2iso-trans-tab))
(defun iso-cvt-read-only (&rest ignore)
"Warn that format is read-only."
(interactive)
(error "This format is read-only; specify another format for writing"))
(defun iso-cvt-write-only (&rest ignore)
"Warn that format is write-only."
(interactive)
(error "This format is write-only"))
(defun iso-cvt-define-menu ()
"Add submenus to the File menu, to convert to and from various formats."
(interactive)
(let ((load-as-menu-map (make-sparse-keymap "Load As..."))
(insert-as-menu-map (make-sparse-keymap "Insert As..."))
(write-as-menu-map (make-sparse-keymap "Write As..."))
(translate-to-menu-map (make-sparse-keymap "Translate to..."))
(translate-from-menu-map (make-sparse-keymap "Translate from..."))
(menu menu-bar-file-menu))
(define-key menu [load-as-separator] '("--"))
(define-key menu [load-as] '("Load As..." . iso-cvt-load-as))
(fset 'iso-cvt-load-as load-as-menu-map)
(fset 'iso-cvt-insert-as insert-as-menu-map)
(define-key menu [write-as] '("Write As..." . iso-cvt-write-as))
(fset 'iso-cvt-write-as write-as-menu-map)
(define-key menu [translate-separator] '("--"))
(define-key menu [translate-to] '("Translate to..." . iso-cvt-translate-to))
(fset 'iso-cvt-translate-to translate-to-menu-map)
(define-key menu [translate-from] '("Translate from..." . iso-cvt-translate-from))
(fset 'iso-cvt-translate-from translate-from-menu-map)
(dolist (file-type (reverse format-alist))
(let ((name (car file-type))
(str-name (cadr file-type)))
(if (stringp str-name)
(progn
(define-key load-as-menu-map (vector name)
(cons str-name
`(lambda (file)
(interactive ,(format "FFind file (as %s): " name))
(format-find-file file ',name))))
(define-key insert-as-menu-map (vector name)
(cons str-name
`(lambda (file)
(interactive (format "FInsert file (as %s): " ,name))
(format-insert-file file ',name))))
(define-key write-as-menu-map (vector name)
(cons str-name
`(lambda (file)
(interactive (format "FWrite file (as %s): " ,name))
(format-write-file file ',name))))
(define-key translate-to-menu-map (vector name)
(cons str-name
`(lambda ()
(interactive)
(format-encode-buffer ',name))))
(define-key translate-from-menu-map (vector name)
(cons str-name
`(lambda ()
(interactive)
(format-decode-buffer ',name))))))))))
(provide 'iso-cvt)