WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/international
Viewing File: /usr/share/emacs/24.3/lisp/international/iso-cvt.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:52:55 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/international/iso-cvt.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@28 Spanish translation table.
(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Í")) (#$ . 564))
#@70 Translate between FROM and TO using the translation table TRANS-TAB.
(defalias 'iso-translate-conventions #[(from to trans-tab) "\212\214	}\210b\210\n\306\211
\2036\212
@\n\307\n@\306\310#\203.\311\nA@\310\306#\210\202)
A)\202+d*\207" [from to trans-tab case-fold-search buffer-read-only work-tab nil re-search-forward t replace-match trans-this] 4 (#$ . 996)])
#@196 Translate net conventions for Spanish to ISO 8859-1.
Translate the region between FROM and TO using the table
`iso-spanish-trans-tab'.
Optional arg BUFFER is ignored (for use in `format-alist').
(defalias 'iso-spanish #[(from to &optional buffer) "\303	\n#\207" [from to iso-spanish-trans-tab iso-translate-conventions] 4 (#$ . 1380) "*r"])
#@118 German translation table.
This table uses an aggressive translation approach
and may erroneously translate too much.
(defvar iso-aggressive-german-trans-tab '(("\"a" "ä") ("\"A" "Ä") ("\"o" "ö") ("\"O" "Ö") ("\"u" "ü") ("\"U" "Ü") ("\"s" "ß") ("\\\\3" "ß")) (#$ . 1729))
#@109 German translation table.
This table uses a conservative translation approach
and may translate too little.
(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ß")) (#$ . 2015))
#@48 Currently active translation table for German.
(defvar iso-german-trans-tab iso-aggressive-german-trans-tab (#$ . 2461))
#@186 Translate net conventions for German to ISO 8859-1.
Translate the region FROM and TO using the table
`iso-german-trans-tab'.
Optional arg BUFFER is ignored (for use in `format-alist').
(defalias 'iso-german #[(from to &optional buffer) "\303	\n#\207" [from to iso-german-trans-tab iso-translate-conventions] 4 (#$ . 2589) "*r"])
#@75 Translation table for translating ISO 8859-1 characters to TeX sequences.
(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}") ("¿" "{?`}") ("¡" "{!`}")) (#$ . 2925))
#@193 Translate ISO 8859-1 characters to TeX sequences.
Translate the region between FROM and TO using the table
`iso-iso2tex-trans-tab'.
Optional arg BUFFER is ignored (for use in `format-alist').
(defalias 'iso-iso2tex #[(from to &optional buffer) "\303	\n#\207" [from to iso-iso2tex-trans-tab iso-translate-conventions] 4 (#$ . 4153) "*r"])
#@185 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.
(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{}" "§") ("{\\?`}" "¿") ("{!`}" "¡") ("\\?`" "¿") ("!`" "¡")) (#$ . 4499))
#@193 Translate TeX sequences to ISO 8859-1 characters.
Translate the region between FROM and TO using the table
`iso-tex2iso-trans-tab'.
Optional arg BUFFER is ignored (for use in `format-alist').
(defalias 'iso-tex2iso #[(from to &optional buffer) "\303	\n#\207" [from to iso-tex2iso-trans-tab iso-translate-conventions] 4 (#$ . 7952) "*r"])
#@181 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-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" "ß")) (#$ . 8298))
#@72 Translation table for translating ISO 8859-1 characters to German TeX.
(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}") ("¿" "{?`}") ("¡" "{!`}")) (#$ . 11708))
#@201 Translate German TeX sequences to ISO 8859-1 characters.
Translate the region between FROM and TO using the table
`iso-gtex2iso-trans-tab'.
Optional arg BUFFER is ignored (for use in `format-alist').
(defalias 'iso-gtex2iso #[(from to &optional buffer) "\303	\n#\207" [from to iso-gtex2iso-trans-tab iso-translate-conventions] 4 (#$ . 12894) "*r"])
#@201 Translate ISO 8859-1 characters to German TeX sequences.
Translate the region between FROM and TO using the table
`iso-iso2gtex-trans-tab'.
Optional arg BUFFER is ignored (for use in `format-alist').
(defalias 'iso-iso2gtex #[(from to &optional buffer) "\303	\n#\207" [from to iso-iso2gtex-trans-tab iso-translate-conventions] 4 (#$ . 13251) "*r"])
#@77 Translation table for translating ISO 8859-1 characters to Duden sequences.
(defvar iso-iso2duden-trans-tab '(("ä" "ae") ("Ä" "Ae") ("ö" "oe") ("Ö" "Oe") ("ü" "ue") ("Ü" "Ue") ("ß" "ss")) (#$ . 13607))
#@197 Translate ISO 8859-1 characters to Duden sequences.
Translate the region between FROM and TO using the table
`iso-iso2duden-trans-tab'.
Optional arg BUFFER is ignored (for use in `format-alist').
(defalias 'iso-iso2duden #[(from to &optional buffer) "\303	\n#\207" [from to iso-iso2duden-trans-tab iso-translate-conventions] 4 (#$ . 13823) "*r"])
(defvar iso-iso2sgml-trans-tab '(("À" "&Agrave;") ("Á" "&Aacute;") ("Â" "&Acirc;") ("Ã" "&Atilde;") ("Ä" "&Auml;") ("Å" "&Aring;") ("Æ" "&AElig;") ("Ç" "&Ccedil;") ("È" "&Egrave;") ("É" "&Eacute;") ("Ê" "&Ecirc;") ("Ë" "&Euml;") ("Ì" "&Igrave;") ("Í" "&Iacute;") ("Î" "&Icirc;") ("Ï" "&Iuml;") ("Ð" "&ETH;") ("Ñ" "&Ntilde;") ("Ò" "&Ograve;") ("Ó" "&Oacute;") ("Ô" "&Ocirc;") ("Õ" "&Otilde;") ("Ö" "&Ouml;") ("Ø" "&Oslash;") ("Ù" "&Ugrave;") ("Ú" "&Uacute;") ("Û" "&Ucirc;") ("Ü" "&Uuml;") ("Ý" "&Yacute;") ("Þ" "&THORN;") ("ß" "&szlig;") ("à" "&agrave;") ("á" "&aacute;") ("â" "&acirc;") ("ã" "&atilde;") ("ä" "&auml;") ("å" "&aring;") ("æ" "&aelig;") ("ç" "&ccedil;") ("è" "&egrave;") ("é" "&eacute;") ("ê" "&ecirc;") ("ë" "&euml;") ("ì" "&igrave;") ("í" "&iacute;") ("î" "&icirc;") ("ï" "&iuml;") ("ð" "&eth;") ("ñ" "&ntilde;") ("ò" "&ograve;") ("ó" "&oacute;") ("ô" "&ocirc;") ("õ" "&otilde;") ("ö" "&ouml;") ("ø" "&oslash;") ("ù" "&ugrave;") ("ú" "&uacute;") ("û" "&ucirc;") ("ü" "&uuml;") ("ý" "&yacute;") ("þ" "&thorn;") ("ÿ" "&yuml;")))
(defvar iso-sgml2iso-trans-tab '(("&Agrave;" "À") ("&Aacute;" "Á") ("&Acirc;" "Â") ("&Atilde;" "Ã") ("&Auml;" "Ä") ("&Aring;" "Å") ("&AElig;" "Æ") ("&Ccedil;" "Ç") ("&Egrave;" "È") ("&Eacute;" "É") ("&Ecirc;" "Ê") ("&Euml;" "Ë") ("&Igrave;" "Ì") ("&Iacute;" "Í") ("&Icirc;" "Î") ("&Iuml;" "Ï") ("&ETH;" "Ð") ("&Ntilde;" "Ñ") ("&Ograve;" "Ò") ("&Oacute;" "Ó") ("&Ocirc;" "Ô") ("&Otilde;" "Õ") ("&Ouml;" "Ö") ("&Oslash;" "Ø") ("&Ugrave;" "Ù") ("&Uacute;" "Ú") ("&Ucirc;" "Û") ("&Uuml;" "Ü") ("&Yacute;" "Ý") ("&THORN;" "Þ") ("&szlig;" "ß") ("&agrave;" "à") ("&aacute;" "á") ("&acirc;" "â") ("&atilde;" "ã") ("&auml;" "ä") ("&aring;" "å") ("&aelig;" "æ") ("&ccedil;" "ç") ("&egrave;" "è") ("&eacute;" "é") ("&ecirc;" "ê") ("&euml;" "ë") ("&igrave;" "ì") ("&iacute;" "í") ("&icirc;" "î") ("&iuml;" "ï") ("&eth;" "ð") ("&ntilde;" "ñ") ("&nbsp;" " ") ("&ograve;" "ò") ("&oacute;" "ó") ("&ocirc;" "ô") ("&otilde;" "õ") ("&ouml;" "ö") ("&oslash;" "ø") ("&ugrave;" "ù") ("&uacute;" "ú") ("&ucirc;" "û") ("&uuml;" "ü") ("&yacute;" "ý") ("&thorn;" "þ") ("&yuml;" "ÿ")))
#@188 Translate ISO 8859-1 characters in the region to SGML entities.
Use entities from "ISO 8879:1986//ENTITIES Added Latin 1//EN".
Optional arg BUFFER is ignored (for use in `format-alist').
(defalias 'iso-iso2sgml #[(from to &optional buffer) "\303	\n#\207" [from to iso-iso2sgml-trans-tab iso-translate-conventions] 4 (#$ . 16406) "*r"])
#@188 Translate SGML entities in the region to ISO 8859-1 characters.
Use entities from "ISO 8879:1986//ENTITIES Added Latin 1//EN".
Optional arg BUFFER is ignored (for use in `format-alist').
(defalias 'iso-sgml2iso #[(from to &optional buffer) "\303	\n#\207" [from to iso-sgml2iso-trans-tab iso-translate-conventions] 4 (#$ . 16750) "*r"])
#@32 Warn that format is read-only.
(defalias 'iso-cvt-read-only #[(&rest ignore) "\300\301!\207" [error "This format is read-only; specify another format for writing"] 2 (#$ . 17093) nil])
#@33 Warn that format is write-only.
(defalias 'iso-cvt-write-only #[(&rest ignore) "\300\301!\207" [error "This format is write-only"] 2 (#$ . 17284) nil])
#@72 Add submenus to the File menu, to convert to and from various formats.
(defalias 'iso-cvt-define-menu #[nil "\306\307!\306\310!\306\311!\306\312!\306\313!3\314	\315\316#\210\314	\317\320#\210\3213M\210\322
M\210\314	\323\324#\210\325\fM\210\314	\326\327#\210\314	\330\331#\210\332M\210\314	\333\334#\210\335\nM\210\3364!\3375\2116\2056@\2115@5\2117A@)898;\203\365\3143\3409!8\341\342\343\344\3459\"D\346\347\3509DEFB#\210\314
\3409!8\341\351\343\344\3529ED\353\347\3509DEFB#\210\314\f\3409!8\341\354\343\344\3559ED\356\347\3509DEFB#\210\314\3409!8\341\337\357\360\3509DDFB#\210\314\n\3409!8\341\337\361\362\3509DDFB#\210*6A\2116\204]\337.\207" [menu-bar-file-menu menu translate-from-menu-map translate-to-menu-map write-as-menu-map insert-as-menu-map make-sparse-keymap "Load As..." "Insert As..." "Write As..." "Translate to..." "Translate from..." define-key [load-as-separator] ("--") [load-as] ("Load As..." . iso-cvt-load-as) iso-cvt-load-as iso-cvt-insert-as [write-as] ("Write As..." . iso-cvt-write-as) iso-cvt-write-as [translate-separator] ("--") [translate-to] ("Translate to..." . iso-cvt-translate-to) iso-cvt-translate-to [translate-from] ("Translate from..." . iso-cvt-translate-from) iso-cvt-translate-from reverse nil vector lambda (file) interactive format "FFind file (as %s): " format-find-file file quote (file) "FInsert file (as %s): " format-insert-file (file) "FWrite file (as %s): " format-write-file (interactive) format-encode-buffer (interactive) format-decode-buffer load-as-menu-map format-alist file-type --dolist-tail-- x str-name name] 12 (#$ . 17442) nil])
(provide 'iso-cvt)
F1l3 Manager
