procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
emacs/lisp/international/iso-cvt.el

718 lines
17 KiB
EmacsLisp
Raw Normal View History

(iso-fix-tex2iso): Doc fix.
1996-01-04 23:42:58 +00:00
;;; iso-cvt.el -- translate to ISO 8859-1 from/to net/TeX conventions
Comment change.
1995-10-30 17:35:01 +00:00
;; This file was formerly called gm-lingo.el.
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
Initial revision
1994-05-01 23:14:10 +00:00
;; 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
Update FSF's address.
1996-01-14 07:34:30 +00:00
;; 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.
Initial revision
1994-05-01 23:14:10 +00:00
;;; Commentary:
Update FSF's address.
1996-01-14 07:34:30 +00:00
(iso-aggressive-german-trans-tab): Doc fix. (iso-cvt-ffh, iso-cvt-wfh, iso-cvt-ash): Doc fix.
1995-01-16 22:48:03 +00:00
;; This lisp code serves two purposes, both of which involve
(iso-gtex2iso-trans-tab): Redorder this list.
1994-05-10 02:21:42 +00:00
;; the translation of various conventions for representing European
;; character sets to ISO 8859-1.
Initial revision
1994-05-01 23:14:10 +00:00
Update FSF's address.
1996-01-14 07:34:30 +00:00
;; Net support:
;; Various conventions exist in Newsgroups on how to represent national
;; characters. The functions provided here translate these net conventions
;; to ISO.
;;
;; Calling `iso-german' will turn the net convention for umlauts ("a etc.)
;; into ISO latin1 umlauts for easy reading.
;; 'iso-spanish' will turn net conventions for representing spanish
;; to ISO latin1. (Note that accents are omitted in news posts most
;; of the time, only enye is escaped.)
;; TeX support
;; This mode installs hooks which change TeX files to ISO Latin-1 for
;; simplified editing. When the TeX file is saved, ISO latin1 characters are
;; translated back to escape sequences.
;;
;; An alternative is a TeX style that handles 8 bit ISO files
;; (available on ftp.vlsivie.tuwien.ac.at in /pub/8bit)
;; - but these files are difficult to transmit ... so while the net is
;; still @ 7 bit this may be useful
;;; TO DO:
;; The net support should install hooks (like TeX support does)
;; which recognizes certain news groups and translates all articles from
;; those groups.
;;
;; 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/bit/FAQ-ISO-8859-1
Initial revision
1994-05-01 23:14:10 +00:00
;;; Code:
(provide 'iso-cvt)
(defvar iso-spanish-trans-tab
'(
("~n" "<EFBFBD>")
("\([a-zA-Z]\)#" "\\1<EFBFBD>")
("~N" "<EFBFBD>")
("\\([-a-zA-Z\"`]\\)\"u" "\\1<EFBFBD>")
("\\([-a-zA-Z\"`]\\)\"U" "\\1<EFBFBD>")
("\\([-a-zA-Z]\\)'o" "\\1<EFBFBD>")
("\\([-a-zA-Z]\\)'O" "\\<EFBFBD>")
("\\([-a-zA-Z]\\)'e" "\\1<EFBFBD>")
("\\([-a-zA-Z]\\)'E" "\\1<EFBFBD>")
("\\([-a-zA-Z]\\)'a" "\\1<EFBFBD>")
("\\([-a-zA-Z]\\)'A" "\\1A")
("\\([-a-zA-Z]\\)'i" "\\1<EFBFBD>")
("\\([-a-zA-Z]\\)'I" "\\1<EFBFBD>")
)
"Spanish translation table.")
(defun iso-translate-conventions (trans-tab)
(iso-translate-conventions): Get rid of interactive spec.
1994-06-11 18:17:00 +00:00
"Use the translation table TRANS-TAB to translate the current buffer."
Initial revision
1994-05-01 23:14:10 +00:00
(save-excursion
(goto-char (point-min))
(let ((work-tab trans-tab)
(iso-translate-conventions): Use case-dependent search and don't alter case.
1994-06-07 18:04:58 +00:00
(buffer-read-only nil)
(case-fold-search nil))
Initial revision
1994-05-01 23:14:10 +00:00
(while work-tab
(save-excursion
(let ((trans-this (car work-tab)))
(while (re-search-forward (car trans-this) nil t)
(iso-translate-conventions): Use case-dependent search and don't alter case.
1994-06-07 18:04:58 +00:00
(replace-match (car (cdr trans-this)) t nil)))
Initial revision
1994-05-01 23:14:10 +00:00
(setq work-tab (cdr work-tab)))))))
(defun iso-spanish ()
"Translate net conventions for Spanish to ISO 8859-1."
(interactive)
(iso-translate-conventions iso-spanish-trans-tab))
(defvar iso-aggressive-german-trans-tab
'(
("\"a" "<EFBFBD>")
("\"A" "<EFBFBD>")
("\"o" "<EFBFBD>")
("\"O" "<EFBFBD>")
("\"u" "<EFBFBD>")
("\"U" "<EFBFBD>")
("\"s" "<EFBFBD>")
("\\\\3" "<EFBFBD>")
)
"German translation table.
(iso-aggressive-german-trans-tab): Doc fix. (iso-cvt-ffh, iso-cvt-wfh, iso-cvt-ash): Doc fix.
1995-01-16 22:48:03 +00:00
This table uses an aggressive translation approach and may erroneously
translate too much.")
Initial revision
1994-05-01 23:14:10 +00:00
(defvar iso-conservative-german-trans-tab
'(
("\\([-a-zA-Z\"`]\\)\"a" "\\1<EFBFBD>")
("\\([-a-zA-Z\"`]\\)\"A" "\\1<EFBFBD>")
("\\([-a-zA-Z\"`]\\)\"o" "\\1<EFBFBD>")
("\\([-a-zA-Z\"`]\\)\"O" "\\1<EFBFBD>")
("\\([-a-zA-Z\"`]\\)\"u" "\\1<EFBFBD>")
("\\([-a-zA-Z\"`]\\)\"U" "\\1<EFBFBD>")
("\\([-a-zA-Z\"`]\\)\"s" "\\1<EFBFBD>")
("\\([-a-zA-Z\"`]\\)\\\\3" "\\1<EFBFBD>")
)
"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 ()
"Translate net conventions for German to ISO 8859-1."
(interactive)
(iso-translate-conventions iso-german-trans-tab))
(defvar iso-iso2tex-trans-tab
'(
("<EFBFBD>" "{\\\\\"a}")
("<EFBFBD>" "{\\\\`a}")
("<EFBFBD>" "{\\\\'a}")
("<EFBFBD>" "{\\\\~a}")
("<EFBFBD>" "{\\\\^a}")
("<EFBFBD>" "{\\\\\"e}")
("<EFBFBD>" "{\\\\`e}")
("<EFBFBD>" "{\\\\'e}")
("<EFBFBD>" "{\\\\^e}")
("<EFBFBD>" "{\\\\\"\\\\i}")
("<EFBFBD>" "{\\\\`\\\\i}")
("<EFBFBD>" "{\\\\'\\\\i}")
("<EFBFBD>" "{\\\\^\\\\i}")
("<EFBFBD>" "{\\\\\"o}")
("<EFBFBD>" "{\\\\`o}")
("<EFBFBD>" "{\\\\'o}")
("<EFBFBD>" "{\\\\~o}")
("<EFBFBD>" "{\\\\^o}")
("<EFBFBD>" "{\\\\\"u}")
("<EFBFBD>" "{\\\\`u}")
("<EFBFBD>" "{\\\\'u}")
("<EFBFBD>" "{\\\\^u}")
("<EFBFBD>" "{\\\\\"A}")
("<EFBFBD>" "{\\\\`A}")
("<EFBFBD>" "{\\\\'A}")
("<EFBFBD>" "{\\\\~A}")
("<EFBFBD>" "{\\\\^A}")
("<EFBFBD>" "{\\\\\"E}")
("<EFBFBD>" "{\\\\`E}")
("<EFBFBD>" "{\\\\'E}")
("<EFBFBD>" "{\\\\^E}")
("<EFBFBD>" "{\\\\\"I}")
("<EFBFBD>" "{\\\\`I}")
("<EFBFBD>" "{\\\\'I}")
("<EFBFBD>" "{\\\\^I}")
("<EFBFBD>" "{\\\\\"O}")
("<EFBFBD>" "{\\\\`O}")
("<EFBFBD>" "{\\\\'O}")
("<EFBFBD>" "{\\\\~O}")
("<EFBFBD>" "{\\\\^O}")
("<EFBFBD>" "{\\\\\"U}")
("<EFBFBD>" "{\\\\`U}")
("<EFBFBD>" "{\\\\'U}")
("<EFBFBD>" "{\\\\^U}")
("<EFBFBD>" "{\\\\~n}")
("<EFBFBD>" "{\\\\~N}")
("<EFBFBD>" "{\\\\c c}")
("<EFBFBD>" "{\\\\c C}")
("<EFBFBD>" "{\\\\ss}")
(iso-iso2tex-trans-tab): Change a few characters. (iso-iso2gtex-trans-tab): Likewise. (iso-tex2iso-trans-tab): Add braces to some characters. (iso-gtex2iso-trans-tab): Likewise.
1994-06-12 15:58:51 +00:00
("\306" "{\\\\AE}")
("\346" "{\\\\ae}")
Handle pilcrow, paragraph and pound signs. Use \aa, \AA for a-with-ring.
1994-11-28 18:45:55 +00:00
("\305" "{\\\\AA}")
("\345" "{\\\\aa}")
(iso-iso2tex-trans-tab): Change a few characters. (iso-iso2gtex-trans-tab): Likewise. (iso-tex2iso-trans-tab): Add braces to some characters. (iso-gtex2iso-trans-tab): Likewise.
1994-06-12 15:58:51 +00:00
("\251" "{\\\\copyright}")
Handle pilcrow, paragraph and pound signs. Use \aa, \AA for a-with-ring.
1994-11-28 18:45:55 +00:00
("<EFBFBD>" "{\\\\pounds}")
("<EFBFBD>" "{\\\\P}")
("<EFBFBD>" "{\\\\S}")
Initial revision
1994-05-01 23:14:10 +00:00
("<EFBFBD>" "{?`}")
("<EFBFBD>" "{!`}")
)
"Translation table for translating ISO 8859-1 characters to TeX sequences.")
(defun iso-iso2tex ()
"Translate ISO 8859-1 characters to TeX sequences."
(interactive)
(iso-translate-conventions iso-iso2tex-trans-tab))
(defvar iso-tex2iso-trans-tab
'(
("{\\\\\"a}" "<EFBFBD>")
("{\\\\`a}" "<EFBFBD>")
("{\\\\'a}" "<EFBFBD>")
("{\\\\~a}" "<EFBFBD>")
("{\\\\^a}" "<EFBFBD>")
("{\\\\\"e}" "<EFBFBD>")
("{\\\\`e}" "<EFBFBD>")
("{\\\\'e}" "<EFBFBD>")
("{\\\\^e}" "<EFBFBD>")
("{\\\\\"\\\\i}" "<EFBFBD>")
("{\\\\`\\\\i}" "<EFBFBD>")
("{\\\\'\\\\i}" "<EFBFBD>")
("{\\\\^\\\\i}" "<EFBFBD>")
("{\\\\\"i}" "<EFBFBD>")
("{\\\\`i}" "<EFBFBD>")
("{\\\\'i}" "<EFBFBD>")
("{\\\\^i}" "<EFBFBD>")
("{\\\\\"o}" "<EFBFBD>")
("{\\\\`o}" "<EFBFBD>")
("{\\\\'o}" "<EFBFBD>")
("{\\\\~o}" "<EFBFBD>")
("{\\\\^o}" "<EFBFBD>")
("{\\\\\"u}" "<EFBFBD>")
("{\\\\`u}" "<EFBFBD>")
("{\\\\'u}" "<EFBFBD>")
("{\\\\^u}" "<EFBFBD>")
("{\\\\\"A}" "<EFBFBD>")
("{\\\\`A}" "<EFBFBD>")
("{\\\\'A}" "<EFBFBD>")
("{\\\\~A}" "<EFBFBD>")
("{\\\\^A}" "<EFBFBD>")
("{\\\\\"E}" "<EFBFBD>")
("{\\\\`E}" "<EFBFBD>")
("{\\\\'E}" "<EFBFBD>")
("{\\\\^E}" "<EFBFBD>")
("{\\\\\"I}" "<EFBFBD>")
("{\\\\`I}" "<EFBFBD>")
("{\\\\'I}" "<EFBFBD>")
("{\\\\^I}" "<EFBFBD>")
("{\\\\\"O}" "<EFBFBD>")
("{\\\\`O}" "<EFBFBD>")
("{\\\\'O}" "<EFBFBD>")
("{\\\\~O}" "<EFBFBD>")
("{\\\\^O}" "<EFBFBD>")
("{\\\\\"U}" "<EFBFBD>")
("{\\\\`U}" "<EFBFBD>")
("{\\\\'U}" "<EFBFBD>")
("{\\\\^U}" "<EFBFBD>")
("{\\\\~n}" "<EFBFBD>")
("{\\\\~N}" "<EFBFBD>")
("{\\\\c c}" "<EFBFBD>")
("{\\\\c C}" "<EFBFBD>")
(iso-iso2tex-trans-tab): Change a few characters. (iso-iso2gtex-trans-tab): Likewise. (iso-tex2iso-trans-tab): Add braces to some characters. (iso-gtex2iso-trans-tab): Likewise.
1994-06-12 15:58:51 +00:00
("\\\\\"a" "<EFBFBD>")
("\\\\`a" "<EFBFBD>")
("\\\\'a" "<EFBFBD>")
("\\\\~a" "<EFBFBD>")
("\\\\^a" "<EFBFBD>")
("\\\\\"e" "<EFBFBD>")
("\\\\`e" "<EFBFBD>")
("\\\\'e" "<EFBFBD>")
("\\\\^e" "<EFBFBD>")
("\\\\\"\\\\i" "<EFBFBD>")
("\\\\`\\\\i" "<EFBFBD>")
("\\\\'\\\\i" "<EFBFBD>")
("\\\\^\\\\i" "<EFBFBD>")
("\\\\\"i" "<EFBFBD>")
("\\\\`i" "<EFBFBD>")
("\\\\'i" "<EFBFBD>")
("\\\\^i" "<EFBFBD>")
("\\\\\"o" "<EFBFBD>")
("\\\\`o" "<EFBFBD>")
("\\\\'o" "<EFBFBD>")
("\\\\~o" "<EFBFBD>")
("\\\\^o" "<EFBFBD>")
("\\\\\"u" "<EFBFBD>")
("\\\\`u" "<EFBFBD>")
("\\\\'u" "<EFBFBD>")
("\\\\^u" "<EFBFBD>")
("\\\\\"A" "<EFBFBD>")
("\\\\`A" "<EFBFBD>")
("\\\\'A" "<EFBFBD>")
("\\\\~A" "<EFBFBD>")
("\\\\^A" "<EFBFBD>")
("\\\\\"E" "<EFBFBD>")
("\\\\`E" "<EFBFBD>")
("\\\\'E" "<EFBFBD>")
("\\\\^E" "<EFBFBD>")
("\\\\\"I" "<EFBFBD>")
("\\\\`I" "<EFBFBD>")
("\\\\'I" "<EFBFBD>")
("\\\\^I" "<EFBFBD>")
("\\\\\"O" "<EFBFBD>")
("\\\\`O" "<EFBFBD>")
("\\\\'O" "<EFBFBD>")
("\\\\~O" "<EFBFBD>")
("\\\\^O" "<EFBFBD>")
("\\\\\"U" "<EFBFBD>")
("\\\\`U" "<EFBFBD>")
("\\\\'U" "<EFBFBD>")
("\\\\^U" "<EFBFBD>")
("\\\\~n" "<EFBFBD>")
("\\\\~N" "<EFBFBD>")
Initial revision
1994-05-01 23:14:10 +00:00
("\\\\\"{a}" "<EFBFBD>")
("\\\\`{a}" "<EFBFBD>")
("\\\\'{a}" "<EFBFBD>")
("\\\\~{a}" "<EFBFBD>")
("\\\\^{a}" "<EFBFBD>")
("\\\\\"{e}" "<EFBFBD>")
("\\\\`{e}" "<EFBFBD>")
("\\\\'{e}" "<EFBFBD>")
("\\\\^{e}" "<EFBFBD>")
("\\\\\"{\\\\i}" "<EFBFBD>")
("\\\\`{\\\\i}" "<EFBFBD>")
("\\\\'{\\\\i}" "<EFBFBD>")
("\\\\^{\\\\i}" "<EFBFBD>")
("\\\\\"{i}" "<EFBFBD>")
("\\\\`{i}" "<EFBFBD>")
("\\\\'{i}" "<EFBFBD>")
("\\\\^{i}" "<EFBFBD>")
("\\\\\"{o}" "<EFBFBD>")
("\\\\`{o}" "<EFBFBD>")
("\\\\'{o}" "<EFBFBD>")
("\\\\~{o}" "<EFBFBD>")
("\\\\^{o}" "<EFBFBD>")
("\\\\\"{u}" "<EFBFBD>")
("\\\\`{u}" "<EFBFBD>")
("\\\\'{u}" "<EFBFBD>")
("\\\\^{u}" "<EFBFBD>")
("\\\\\"{A}" "<EFBFBD>")
("\\\\`{A}" "<EFBFBD>")
("\\\\'{A}" "<EFBFBD>")
("\\\\~{A}" "<EFBFBD>")
("\\\\^{A}" "<EFBFBD>")
("\\\\\"{E}" "<EFBFBD>")
("\\\\`{E}" "<EFBFBD>")
("\\\\'{E}" "<EFBFBD>")
("\\\\^{E}" "<EFBFBD>")
("\\\\\"{I}" "<EFBFBD>")
("\\\\`{I}" "<EFBFBD>")
("\\\\'{I}" "<EFBFBD>")
("\\\\^{I}" "<EFBFBD>")
("\\\\\"{O}" "<EFBFBD>")
("\\\\`{O}" "<EFBFBD>")
("\\\\'{O}" "<EFBFBD>")
("\\\\~{O}" "<EFBFBD>")
("\\\\^{O}" "<EFBFBD>")
("\\\\\"{U}" "<EFBFBD>")
("\\\\`{U}" "<EFBFBD>")
("\\\\'{U}" "<EFBFBD>")
("\\\\^{U}" "<EFBFBD>")
("\\\\~{n}" "<EFBFBD>")
("\\\\~{N}" "<EFBFBD>")
("\\\\c{c}" "<EFBFBD>")
("\\\\c{C}" "<EFBFBD>")
("{\\\\ss}" "<EFBFBD>")
(iso-iso2tex-trans-tab): Change a few characters. (iso-iso2gtex-trans-tab): Likewise. (iso-tex2iso-trans-tab): Add braces to some characters. (iso-gtex2iso-trans-tab): Likewise.
1994-06-12 15:58:51 +00:00
("{\\\\AE}" "\306")
("{\\\\ae}" "\346")
Handle pilcrow, paragraph and pound signs. Use \aa, \AA for a-with-ring.
1994-11-28 18:45:55 +00:00
("{\\\\AA}" "\305")
("{\\\\aa}" "\345")
(iso-iso2tex-trans-tab): Change a few characters. (iso-iso2gtex-trans-tab): Likewise. (iso-tex2iso-trans-tab): Add braces to some characters. (iso-gtex2iso-trans-tab): Likewise.
1994-06-12 15:58:51 +00:00
("{\\\\copyright}" "\251")
("\\\\copyright{}" "\251")
Handle pilcrow, paragraph and pound signs. Use \aa, \AA for a-with-ring.
1994-11-28 18:45:55 +00:00
("{\\\\pounds}" "<EFBFBD>" )
("{\\\\P}" "<EFBFBD>" )
("{\\\\S}" "<EFBFBD>" )
("\\\\pounds{}" "<EFBFBD>" )
("\\\\P{}" "<EFBFBD>" )
("\\\\S{}" "<EFBFBD>" )
(iso-tex2iso-trans-tab): Put the sequences with braces before corresponding ones without. Escape ? in patterns. (iso-translate-conventions): Don't widen. (iso-german-tex-p): Preserve narrowing.
1994-08-13 23:58:50 +00:00
("{\\?`}" "<EFBFBD>")
Initial revision
1994-05-01 23:14:10 +00:00
("{!`}" "<EFBFBD>")
(iso-tex2iso-trans-tab): Put the sequences with braces before corresponding ones without. Escape ? in patterns. (iso-translate-conventions): Don't widen. (iso-german-tex-p): Preserve narrowing.
1994-08-13 23:58:50 +00:00
("\\?`" "<EFBFBD>")
("!`" "<EFBFBD>")
Initial revision
1994-05-01 23:14:10 +00:00
)
"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 ()
"Translate TeX sequences to ISO 8859-1 characters."
(interactive)
(iso-translate-conventions iso-tex2iso-trans-tab))
(defvar iso-gtex2iso-trans-tab
'(
("{\\\\\"a}" "<EFBFBD>")
("{\\\\`a}" "<EFBFBD>")
("{\\\\'a}" "<EFBFBD>")
("{\\\\~a}" "<EFBFBD>")
("{\\\\^a}" "<EFBFBD>")
("{\\\\\"e}" "<EFBFBD>")
("{\\\\`e}" "<EFBFBD>")
("{\\\\'e}" "<EFBFBD>")
("{\\\\^e}" "<EFBFBD>")
("{\\\\\"\\\\i}" "<EFBFBD>")
("{\\\\`\\\\i}" "<EFBFBD>")
("{\\\\'\\\\i}" "<EFBFBD>")
("{\\\\^\\\\i}" "<EFBFBD>")
("{\\\\\"i}" "<EFBFBD>")
("{\\\\`i}" "<EFBFBD>")
("{\\\\'i}" "<EFBFBD>")
("{\\\\^i}" "<EFBFBD>")
("{\\\\\"o}" "<EFBFBD>")
("{\\\\`o}" "<EFBFBD>")
("{\\\\'o}" "<EFBFBD>")
("{\\\\~o}" "<EFBFBD>")
("{\\\\^o}" "<EFBFBD>")
("{\\\\\"u}" "<EFBFBD>")
("{\\\\`u}" "<EFBFBD>")
("{\\\\'u}" "<EFBFBD>")
("{\\\\^u}" "<EFBFBD>")
("{\\\\\"A}" "<EFBFBD>")
("{\\\\`A}" "<EFBFBD>")
("{\\\\'A}" "<EFBFBD>")
("{\\\\~A}" "<EFBFBD>")
("{\\\\^A}" "<EFBFBD>")
("{\\\\\"E}" "<EFBFBD>")
("{\\\\`E}" "<EFBFBD>")
("{\\\\'E}" "<EFBFBD>")
("{\\\\^E}" "<EFBFBD>")
("{\\\\\"I}" "<EFBFBD>")
("{\\\\`I}" "<EFBFBD>")
("{\\\\'I}" "<EFBFBD>")
("{\\\\^I}" "<EFBFBD>")
("{\\\\\"O}" "<EFBFBD>")
("{\\\\`O}" "<EFBFBD>")
("{\\\\'O}" "<EFBFBD>")
("{\\\\~O}" "<EFBFBD>")
("{\\\\^O}" "<EFBFBD>")
("{\\\\\"U}" "<EFBFBD>")
("{\\\\`U}" "<EFBFBD>")
("{\\\\'U}" "<EFBFBD>")
("{\\\\^U}" "<EFBFBD>")
("{\\\\~n}" "<EFBFBD>")
("{\\\\~N}" "<EFBFBD>")
("{\\\\c c}" "<EFBFBD>")
("{\\\\c C}" "<EFBFBD>")
(iso-iso2tex-trans-tab): Change a few characters. (iso-iso2gtex-trans-tab): Likewise. (iso-tex2iso-trans-tab): Add braces to some characters. (iso-gtex2iso-trans-tab): Likewise.
1994-06-12 15:58:51 +00:00
("\\\\\"a" "<EFBFBD>")
("\\\\`a" "<EFBFBD>")
("\\\\'a" "<EFBFBD>")
("\\\\~a" "<EFBFBD>")
("\\\\^a" "<EFBFBD>")
("\\\\\"e" "<EFBFBD>")
("\\\\`e" "<EFBFBD>")
("\\\\'e" "<EFBFBD>")
("\\\\^e" "<EFBFBD>")
("\\\\\"\\\\i" "<EFBFBD>")
("\\\\`\\\\i" "<EFBFBD>")
("\\\\'\\\\i" "<EFBFBD>")
("\\\\^\\\\i" "<EFBFBD>")
("\\\\\"i" "<EFBFBD>")
("\\\\`i" "<EFBFBD>")
("\\\\'i" "<EFBFBD>")
("\\\\^i" "<EFBFBD>")
("\\\\\"o" "<EFBFBD>")
("\\\\`o" "<EFBFBD>")
("\\\\'o" "<EFBFBD>")
("\\\\~o" "<EFBFBD>")
("\\\\^o" "<EFBFBD>")
("\\\\\"u" "<EFBFBD>")
("\\\\`u" "<EFBFBD>")
("\\\\'u" "<EFBFBD>")
("\\\\^u" "<EFBFBD>")
("\\\\\"A" "<EFBFBD>")
("\\\\`A" "<EFBFBD>")
("\\\\'A" "<EFBFBD>")
("\\\\~A" "<EFBFBD>")
("\\\\^A" "<EFBFBD>")
("\\\\\"E" "<EFBFBD>")
("\\\\`E" "<EFBFBD>")
("\\\\'E" "<EFBFBD>")
("\\\\^E" "<EFBFBD>")
("\\\\\"I" "<EFBFBD>")
("\\\\`I" "<EFBFBD>")
("\\\\'I" "<EFBFBD>")
("\\\\^I" "<EFBFBD>")
("\\\\\"O" "<EFBFBD>")
("\\\\`O" "<EFBFBD>")
("\\\\'O" "<EFBFBD>")
("\\\\~O" "<EFBFBD>")
("\\\\^O" "<EFBFBD>")
("\\\\\"U" "<EFBFBD>")
("\\\\`U" "<EFBFBD>")
("\\\\'U" "<EFBFBD>")
("\\\\^U" "<EFBFBD>")
("\\\\~n" "<EFBFBD>")
("\\\\~N" "<EFBFBD>")
Initial revision
1994-05-01 23:14:10 +00:00
("\\\\\"{a}" "<EFBFBD>")
("\\\\`{a}" "<EFBFBD>")
("\\\\'{a}" "<EFBFBD>")
("\\\\~{a}" "<EFBFBD>")
("\\\\^{a}" "<EFBFBD>")
("\\\\\"{e}" "<EFBFBD>")
("\\\\`{e}" "<EFBFBD>")
("\\\\'{e}" "<EFBFBD>")
("\\\\^{e}" "<EFBFBD>")
("\\\\\"{\\\\i}" "<EFBFBD>")
("\\\\`{\\\\i}" "<EFBFBD>")
("\\\\'{\\\\i}" "<EFBFBD>")
("\\\\^{\\\\i}" "<EFBFBD>")
("\\\\\"{i}" "<EFBFBD>")
("\\\\`{i}" "<EFBFBD>")
("\\\\'{i}" "<EFBFBD>")
("\\\\^{i}" "<EFBFBD>")
("\\\\\"{o}" "<EFBFBD>")
("\\\\`{o}" "<EFBFBD>")
("\\\\'{o}" "<EFBFBD>")
("\\\\~{o}" "<EFBFBD>")
("\\\\^{o}" "<EFBFBD>")
("\\\\\"{u}" "<EFBFBD>")
("\\\\`{u}" "<EFBFBD>")
("\\\\'{u}" "<EFBFBD>")
("\\\\^{u}" "<EFBFBD>")
("\\\\\"{A}" "<EFBFBD>")
("\\\\`{A}" "<EFBFBD>")
("\\\\'{A}" "<EFBFBD>")
("\\\\~{A}" "<EFBFBD>")
("\\\\^{A}" "<EFBFBD>")
("\\\\\"{E}" "<EFBFBD>")
("\\\\`{E}" "<EFBFBD>")
("\\\\'{E}" "<EFBFBD>")
("\\\\^{E}" "<EFBFBD>")
("\\\\\"{I}" "<EFBFBD>")
("\\\\`{I}" "<EFBFBD>")
("\\\\'{I}" "<EFBFBD>")
("\\\\^{I}" "<EFBFBD>")
("\\\\\"{O}" "<EFBFBD>")
("\\\\`{O}" "<EFBFBD>")
("\\\\'{O}" "<EFBFBD>")
("\\\\~{O}" "<EFBFBD>")
("\\\\^{O}" "<EFBFBD>")
("\\\\\"{U}" "<EFBFBD>")
("\\\\`{U}" "<EFBFBD>")
("\\\\'{U}" "<EFBFBD>")
("\\\\^{U}" "<EFBFBD>")
("\\\\~{n}" "<EFBFBD>")
("\\\\~{N}" "<EFBFBD>")
("\\\\c{c}" "<EFBFBD>")
("\\\\c{C}" "<EFBFBD>")
("{\\\\ss}" "<EFBFBD>")
(iso-iso2tex-trans-tab): Change a few characters. (iso-iso2gtex-trans-tab): Likewise. (iso-tex2iso-trans-tab): Add braces to some characters. (iso-gtex2iso-trans-tab): Likewise.
1994-06-12 15:58:51 +00:00
("{\\\\AE}" "\306")
("{\\\\ae}" "\346")
Handle pilcrow, paragraph and pound signs. Use \aa, \AA for a-with-ring.
1994-11-28 18:45:55 +00:00
("{\\\\AA}" "\305")
("{\\\\aa}" "\345")
(iso-iso2tex-trans-tab): Change a few characters. (iso-iso2gtex-trans-tab): Likewise. (iso-tex2iso-trans-tab): Add braces to some characters. (iso-gtex2iso-trans-tab): Likewise.
1994-06-12 15:58:51 +00:00
("{\\\\copyright}" "\251")
("\\\\copyright{}" "\251")
Handle pilcrow, paragraph and pound signs. Use \aa, \AA for a-with-ring.
1994-11-28 18:45:55 +00:00
("{\\\\pounds}" "<EFBFBD>" )
("{\\\\P}" "<EFBFBD>" )
("{\\\\S}" "<EFBFBD>" )
("\\\\pounds{}" "<EFBFBD>" )
("\\\\P{}" "<EFBFBD>" )
("\\\\S{}" "<EFBFBD>" )
Initial revision
1994-05-01 23:14:10 +00:00
("?`" "<EFBFBD>")
("!`" "<EFBFBD>")
("{?`}" "<EFBFBD>")
("{!`}" "<EFBFBD>")
(iso-gtex2iso-trans-tab): Redorder this list.
1994-05-10 02:21:42 +00:00
("\"a" "<EFBFBD>")
("\"A" "<EFBFBD>")
("\"o" "<EFBFBD>")
("\"O" "<EFBFBD>")
("\"u" "<EFBFBD>")
("\"U" "<EFBFBD>")
("\"s" "<EFBFBD>")
("\\\\3" "<EFBFBD>")
Initial revision
1994-05-01 23:14:10 +00:00
)
"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
'(
("<EFBFBD>" "\"a")
("<EFBFBD>" "{\\\\`a}")
("<EFBFBD>" "{\\\\'a}")
("<EFBFBD>" "{\\\\~a}")
("<EFBFBD>" "{\\\\^a}")
("<EFBFBD>" "{\\\\\"e}")
("<EFBFBD>" "{\\\\`e}")
("<EFBFBD>" "{\\\\'e}")
("<EFBFBD>" "{\\\\^e}")
("<EFBFBD>" "{\\\\\"\\\\i}")
("<EFBFBD>" "{\\\\`\\\\i}")
("<EFBFBD>" "{\\\\'\\\\i}")
("<EFBFBD>" "{\\\\^\\\\i}")
("<EFBFBD>" "\"o")
("<EFBFBD>" "{\\\\`o}")
("<EFBFBD>" "{\\\\'o}")
("<EFBFBD>" "{\\\\~o}")
("<EFBFBD>" "{\\\\^o}")
("<EFBFBD>" "\"u")
("<EFBFBD>" "{\\\\`u}")
("<EFBFBD>" "{\\\\'u}")
("<EFBFBD>" "{\\\\^u}")
("<EFBFBD>" "\"A")
("<EFBFBD>" "{\\\\`A}")
("<EFBFBD>" "{\\\\'A}")
("<EFBFBD>" "{\\\\~A}")
("<EFBFBD>" "{\\\\^A}")
("<EFBFBD>" "{\\\\\"E}")
("<EFBFBD>" "{\\\\`E}")
("<EFBFBD>" "{\\\\'E}")
("<EFBFBD>" "{\\\\^E}")
("<EFBFBD>" "{\\\\\"I}")
("<EFBFBD>" "{\\\\`I}")
("<EFBFBD>" "{\\\\'I}")
("<EFBFBD>" "{\\\\^I}")
("<EFBFBD>" "\"O")
("<EFBFBD>" "{\\\\`O}")
("<EFBFBD>" "{\\\\'O}")
("<EFBFBD>" "{\\\\~O}")
("<EFBFBD>" "{\\\\^O}")
("<EFBFBD>" "\"U")
("<EFBFBD>" "{\\\\`U}")
("<EFBFBD>" "{\\\\'U}")
("<EFBFBD>" "{\\\\^U}")
("<EFBFBD>" "{\\\\~n}")
("<EFBFBD>" "{\\\\~N}")
("<EFBFBD>" "{\\\\c c}")
("<EFBFBD>" "{\\\\c C}")
("<EFBFBD>" "\"s")
(iso-iso2tex-trans-tab): Change a few characters. (iso-iso2gtex-trans-tab): Likewise. (iso-tex2iso-trans-tab): Add braces to some characters. (iso-gtex2iso-trans-tab): Likewise.
1994-06-12 15:58:51 +00:00
("\306" "{\\\\AE}")
("\346" "{\\\\ae}")
Handle pilcrow, paragraph and pound signs. Use \aa, \AA for a-with-ring.
1994-11-28 18:45:55 +00:00
("\305" "{\\\\AA}")
("\345" "{\\\\aa}")
(iso-iso2tex-trans-tab): Change a few characters. (iso-iso2gtex-trans-tab): Likewise. (iso-tex2iso-trans-tab): Add braces to some characters. (iso-gtex2iso-trans-tab): Likewise.
1994-06-12 15:58:51 +00:00
("\251" "{\\\\copyright}")
Handle pilcrow, paragraph and pound signs. Use \aa, \AA for a-with-ring.
1994-11-28 18:45:55 +00:00
("<EFBFBD>" "{\\\\pounds}")
("<EFBFBD>" "{\\\\P}")
("<EFBFBD>" "{\\\\S}")
Initial revision
1994-05-01 23:14:10 +00:00
("<EFBFBD>" "{?`}")
("<EFBFBD>" "{!`}")
)
"Translation table for translating ISO 8859-1 characters to German TeX.")
(defun iso-gtex2iso ()
"Translate German TeX sequences to ISO 8859-1 characters."
(interactive)
(iso-translate-conventions iso-gtex2iso-trans-tab))
(defun iso-iso2gtex ()
"Translate ISO 8859-1 characters to German TeX sequences."
(interactive)
(iso-translate-conventions iso-iso2gtex-trans-tab))
(defun iso-german-tex-p ()
"Check if tex buffer is German LaTeX."
(save-excursion
(iso-tex2iso-trans-tab): Put the sequences with braces before corresponding ones without. Escape ? in patterns. (iso-translate-conventions): Don't widen. (iso-german-tex-p): Preserve narrowing.
1994-08-13 23:58:50 +00:00
(save-restriction
(widen)
(goto-char (point-min))
(re-search-forward "\\\\documentstyle\\[.*german.*\\]" nil t))))
Initial revision
1994-05-01 23:14:10 +00:00
(defun iso-fix-iso2tex ()
"Turn ISO 8859-1 (aka. ISO Latin-1) buffer into TeX sequences.
If German TeX is used, German TeX sequences are generated."
(if (or (equal major-mode 'latex-mode)
(equal major-mode 'LaTeX-mode)) ; AucTeX wants this
(if (iso-german-tex-p)
(iso-iso2gtex)
(iso-iso2tex)))
(if (or (equal major-mode 'tex-mode)
(iso-fix-iso2tex, iso-fix-tex2iso): Check plain-text-mode.
1994-08-03 20:41:33 +00:00
(equal major-mode 'TeX-mode) ; AucTeX wants this
(iso-tex2iso-trans-tab): Put the sequences with braces before corresponding ones without. Escape ? in patterns. (iso-translate-conventions): Don't widen. (iso-german-tex-p): Preserve narrowing.
1994-08-13 23:58:50 +00:00
(equal major-mode 'plain-tex-mode))
Initial revision
1994-05-01 23:14:10 +00:00
(iso-iso2tex)))
(defun iso-fix-tex2iso ()
"Turn TeX sequences into ISO 8859-1 (aka. ISO Latin-1) characters.
(iso-fix-tex2iso): Doc fix.
1996-01-04 23:42:58 +00:00
This function recognizes German TeX buffers."
Initial revision
1994-05-01 23:14:10 +00:00
(if (or (equal major-mode 'latex-mode)
(equal major-mode 'Latex-mode)) ; AucTeX wants this
(if (iso-german-tex-p)
(iso-gtex2iso)
(iso-tex2iso)))
(if (or (equal major-mode 'tex-mode)
(iso-fix-iso2tex, iso-fix-tex2iso): Check plain-text-mode.
1994-08-03 20:41:33 +00:00
(equal major-mode 'TeX-mode) ; AucTeX wants this
(iso-tex2iso-trans-tab): Put the sequences with braces before corresponding ones without. Escape ? in patterns. (iso-translate-conventions): Don't widen. (iso-german-tex-p): Preserve narrowing.
1994-08-13 23:58:50 +00:00
(equal major-mode 'plain-tex-mode))
Initial revision
1994-05-01 23:14:10 +00:00
(iso-tex2iso)))
(defun iso-cvt-ffh ()
(iso-aggressive-german-trans-tab): Doc fix. (iso-cvt-ffh, iso-cvt-wfh, iso-cvt-ash): Doc fix.
1995-01-16 22:48:03 +00:00
"find-file-hook for iso-cvt.el."
Initial revision
1994-05-01 23:14:10 +00:00
(iso-fix-tex2iso)
(set-buffer-modified-p nil))
(defun iso-cvt-wfh ()
(iso-aggressive-german-trans-tab): Doc fix. (iso-cvt-ffh, iso-cvt-wfh, iso-cvt-ash): Doc fix.
1995-01-16 22:48:03 +00:00
"write file hook for iso-cvt.el."
Initial revision
1994-05-01 23:14:10 +00:00
(iso-fix-iso2tex))
(defun iso-cvt-ash ()
(iso-aggressive-german-trans-tab): Doc fix. (iso-cvt-ffh, iso-cvt-wfh, iso-cvt-ash): Doc fix.
1995-01-16 22:48:03 +00:00
"after save hook for iso-cvt.el."
Initial revision
1994-05-01 23:14:10 +00:00
(iso-fix-tex2iso)
(set-buffer-modified-p nil))
(add-hook 'find-file-hooks 'iso-cvt-ffh)
(add-hook 'write-file-hooks 'iso-cvt-wfh)
(add-hook 'after-save-hook 'iso-cvt-ash)
;;; iso-cvt.el ends here
Reference in a new issue Copy permalink