Mercurial > emacs
view lisp/international/iso-cvt.el @ 29326:44c929164604
(quail-start-conversion): Don't include
unhandled events in the returned events, but set them in
unread-command-events. Exit if all inputs are deleted.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 31 May 2000 03:49:49 +0000 |
parents | 6cc408ca6aef |
children | 879195ddd0d6 |
line wrap: on
line source
;;; iso-cvt.-el -- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*- ;; This file was formerly called gm-lingo.el. ;; Copyright (C) 1993, 1994, 1995, 1996, 1998, 2000 Free Software Foundation, Inc. ;; Author: Michael Gschwind <mike@vlsivie.tuwien.ac.at> ;; Keywords: tex, iso, latin, i18n ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; This lisp code is a general framework for translating various ;; representations of the same data. ;; among other things it can be used to translate TeX, HTML, and compressed ;; files to ISO 8859-1. It can also be used to translate different charsets ;; such as IBM PC, Macintosh or HP Roman8. ;; Note that many translations use the GNU recode tool to do the actual ;; conversion. So you might want to install that tool to get the full ;; benefit of iso-cvt.el ; TO DO: ; Cover more cases for translation. (There is an infinite number of ways to ; represent accented characters in TeX) ;; SEE ALSO: ; If you are interested in questions related to using the ISO 8859-1 ; characters set (configuring emacs, Unix, etc. to use ISO), then you ; can get the ISO 8859-1 FAQ via anonymous ftp from ; ftp.vlsivie.tuwien.ac.at in /pub/8bit/FAQ-ISO-8859-1 ;;; Code: (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)))) ;;;###autoload (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 (so that the function can can be used 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.") ;;;###autoload (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 (so that the function can can be used 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.") ;;;###autoload (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 (so that the function can can be used 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" "ï") ("\\\\`\\\\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{}" "§" ) ("{\\?`}" "¿") ("{!`}" "¡") ("\\?`" "¿") ("!`" "¡") ) "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.") ;;;###autoload (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 (so that the function can can be used 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.") ;;;###autoload (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 (so that the function can can be used in `format-alist')." (interactive "*r") (iso-translate-conventions from to iso-gtex2iso-trans-tab)) ;;;###autoload (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 (so that the function can can be used 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"))) ;;;###autoload (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 (so that the function can can be used in `format-alist')." (interactive "*r") (iso-translate-conventions from to iso-iso2duden-trans-tab)) (defvar iso-iso2sgml-trans-tab '(("À" "À") ("Á" "Á") ("Â" "Â") ("Ã" "Ã") ("Ä" "Ä") ("Å" "Å") ("Æ" "Æ") ("Ç" "Ç") ("È" "È") ("É" "É") ("Ê" "Ê") ("Ë" "Ë") ("Ì" "Ì") ("Í" "Í") ("Î" "Î") ("Ï" "Ï") ("Ð" "Ð") ("Ñ" "Ñ") ("Ò" "Ò") ("Ó" "Ó") ("Ô" "Ô") ("Õ" "Õ") ("Ö" "Ö") ("Ø" "Ø") ("Ù" "Ù") ("Ú" "Ú") ("Û" "Û") ("Ü" "Ü") ("Ý" "Ý") ("Þ" "Þ") ("ß" "ß") ("à" "à") ("á" "á") ("â" "â") ("ã" "ã") ("ä" "ä") ("å" "å") ("æ" "æ") ("ç" "ç") ("è" "è") ("é" "é") ("ê" "ê") ("ë" "ë") ("ì" "ì") ("í" "í") ("î" "î") ("ï" "ï") ("ð" "ð") ("ñ" "ñ") ("ò" "ò") ("ó" "ó") ("ô" "ô") ("õ" "õ") ("ö" "ö") ("ø" "ø") ("ù" "ù") ("ú" "ú") ("û" "û") ("ü" "ü") ("ý" "ý") ("þ" "þ") ("ÿ" "ÿ"))) (defvar iso-sgml2iso-trans-tab '(("À" "À") ("Á" "Á") ("Â" "Â") ("Ã" "Ã") ("Ä" "Ä") ("Å" "Å") ("Æ" "Æ") ("Ç" "Ç") ("È" "È") ("É" "É") ("Ê" "Ê") ("Ë" "Ë") ("Ì" "Ì") ("Í" "Í") ("Î" "Î") ("Ï" "Ï") ("Ð" "Ð") ("Ñ" "Ñ") ("Ò" "Ò") ("Ó" "Ó") ("Ô" "Ô") ("Õ" "Õ") ("Ö" "Ö") ("Ø" "Ø") ("Ù" "Ù") ("Ú" "Ú") ("Û" "Û") ("Ü" "Ü") ("Ý" "Ý") ("Þ" "Þ") ("ß" "ß") ("à" "à") ("á" "á") ("â" "â") ("ã" "ã") ("ä" "ä") ("å" "å") ("æ" "æ") ("ç" "ç") ("è" "è") ("é" "é") ("ê" "ê") ("ë" "ë") ("ì" "ì") ("í" "í") ("î" "î") ("ï" "ï") ("ð" "ð") ("ñ" "ñ") ("ò" "ò") ("ó" "ó") ("ô" "ô") ("õ" "õ") ("ö" "ö") ("ø" "ø") ("ù" "ù") ("ú" "ú") ("û" "û") ("ü" "ü") ("ý" "ý") ("þ" "þ") ("ÿ" "ÿ"))) ;;;###autoload (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 (so that the function can can be used in `format-alist')." (interactive "*r") (iso-translate-conventions from to iso-iso2sgml-trans-tab)) ;;;###autoload (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 (so that the function can can be used in `format-alist')." (interactive "*r") (iso-translate-conventions from to iso-sgml2iso-trans-tab)) ;;;###autoload (defun iso-cvt-read-only () "Warn that format is read-only." (interactive) (error "This format is read-only; specify another format for writing")) ;;;###autoload (defun iso-cvt-write-only () "Warn that format is write-only." (interactive) (error "This format is write-only")) ;;;###autoload (defun iso-cvt-define-menu () "Add submenus to the Files menu, to convert to and from various formats." (interactive) (define-key menu-bar-files-menu [load-as-separator] '("--")) (define-key menu-bar-files-menu [load-as] '("Load As..." . load-as)) (defvar load-as-menu-map (make-sparse-keymap "Load As...")) (fset 'load-as load-as-menu-map) ;;(define-key menu-bar-files-menu [insert-as] '("Insert As..." . insert-as)) (defvar insert-as-menu-map (make-sparse-keymap "Insert As...")) (fset 'insert-as insert-as-menu-map) (define-key menu-bar-files-menu [write-as] '("Write As..." . write-as)) (defvar write-as-menu-map (make-sparse-keymap "Write As...")) (fset 'write-as write-as-menu-map) (define-key menu-bar-files-menu [translate-separator] '("--")) (define-key menu-bar-files-menu [translate-to] '("Translate to..." . translate-to)) (defvar translate-to-menu-map (make-sparse-keymap "Translate to...")) (fset 'translate-to translate-to-menu-map) (define-key menu-bar-files-menu [translate-from] '("Translate from..." . translate-from)) (defvar translate-from-menu-map (make-sparse-keymap "Translate from...")) (fset 'translate-from translate-from-menu-map) (let ((file-types (reverse format-alist)) name str-name) (while file-types (setq name (car (car file-types)) str-name (car (cdr (car file-types))) file-types (cdr file-types)) (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) ;;; iso-cvt.el ends here