lisp/international/iso-cvt.el

   1 ;; iso-cvt.el -- translate to ISO 8859-1 from/to net/TeX conventions
   2 ;; Copyright © 1993, 1994 Free Software Foundation, Inc.
   3 ;; Was formerly called gm-lingo.el.
   4
   5 ;; Author: Michael Gschwind <mike@vlsivie.tuwien.ac.at>
   6 ;; Keywords: tex, iso, latin, i18n
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to
  22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  23
  24 ;;; Commentary:
  25 ;; This lisp code serves two purposes, both of which involve
  26 ;; the translation of various conventions for representing European
  27 ;; character sets to ISO 8859-1.
  28
  29 ; Net support:
  30 ; Various conventions exist in Newsgroups on how to represent national
  31 ; characters. The functions provided here translate these net conventions
  32 ; to ISO.
  33 ;
  34 ; Calling `iso-german' will turn the net convention for umlauts ("a etc.)
  35 ; into ISO latin1 umlaute for easy reading.
  36 ; 'iso-spanish' will turn net conventions for representing spanish
  37 ; to ISO latin1. (Note that accents are omitted in news posts most
  38 ; of the time, only enye is escaped.)
  39
  40 ; TeX support
  41 ; This mode installs hooks which change TeX files to ISO Latin-1 for
  42 ; simplified editing. When the TeX file is saved, ISO latin1 characters are
  43 ; translated back to escape sequences.
  44 ;
  45 ; An alternative is a TeX style that handles 8 bit ISO files
  46 ; (available on ftp.vlsivie.tuwien.ac.at in /pub/8bit)
  47 ; - but these files are difficult to transmit ... so while the net is
  48 ; still @ 7 bit this may be useful
  49
  50 ;; TO DO:
  51 ; The net support should install hooks (like TeX support does)
  52 ; which recognizes certains news groups and translates all articles from
  53 ; those groups.
  54 ;
  55 ; Cover more cases for translation (There is an infinite number of ways to
  56 ; represent accented characters in TeX)
  57
  58 ;; SEE ALSO:
  59 ; If you are interested in questions related to using the ISO 8859-1
  60 ; characters set (configuring emacs, Unix, etc. to use ISO), then you
  61 ; can get the ISO 8859-1 FAQ via anonymous ftp from
  62 ; ftp.vlsivie.tuwien.ac.at in /pub/bit/FAQ-ISO-8859-1
  63
  64 ;;; Code:
  65
  66 (provide 'iso-cvt)
  67
  68 (defvar iso-spanish-trans-tab
  69   '(
  70     ("~n" "ñ")
  71     ("\([a-zA-Z]\)#" "\\1ñ")
  72     ("~N" "Ñ")
  73     ("\\([-a-zA-Z\"`]\\)\"u" "\\1ü")
  74     ("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü")
  75     ("\\([-a-zA-Z]\\)'o" "\\1ó")
  76     ("\\([-a-zA-Z]\\)'O" "\\Ó")
  77     ("\\([-a-zA-Z]\\)'e" "\\1é")
  78     ("\\([-a-zA-Z]\\)'E" "\\1É")
  79     ("\\([-a-zA-Z]\\)'a" "\\1á")
  80     ("\\([-a-zA-Z]\\)'A" "\\1A")
  81     ("\\([-a-zA-Z]\\)'i" "\\1í")
  82     ("\\([-a-zA-Z]\\)'I" "\\1Í")
  83     )
  84   "Spanish translation table.")
  85
  86 (defun iso-translate-conventions (trans-tab)
  87   "Use the translation table TRANS-TAB to translate the current buffer."
  88   (save-excursion
  89     (goto-char (point-min))
  90     (let ((work-tab trans-tab)
  91           (buffer-read-only nil)
  92           (case-fold-search nil))
  93       (while work-tab
  94         (save-excursion
  95           (let ((trans-this (car work-tab)))
  96             (while (re-search-forward (car trans-this) nil t)
  97               (replace-match (car (cdr trans-this)) t nil)))
  98           (setq work-tab (cdr work-tab)))))))
  99
 100 (defun iso-spanish ()
 101   "Translate net conventions for Spanish to ISO 8859-1."
 102   (interactive)
 103   (iso-translate-conventions iso-spanish-trans-tab))
 104
 105 (defvar iso-aggressive-german-trans-tab
 106   '(
 107     ("\"a" "ä")
 108     ("\"A" "Ä")
 109     ("\"o" "ö")
 110     ("\"O" "Ö")
 111     ("\"u" "ü")
 112     ("\"U" "Ü")
 113     ("\"s" "ß")
 114     ("\\\\3" "ß")
 115     )
 116   "German translation table.
 117 This table uses an aggressive translation approach and may erroneously
 118 translate too much.")
 119
 120 (defvar iso-conservative-german-trans-tab
 121   '(
 122     ("\\([-a-zA-Z\"`]\\)\"a" "\\1ä")
 123     ("\\([-a-zA-Z\"`]\\)\"A" "\\1Ä")
 124     ("\\([-a-zA-Z\"`]\\)\"o" "\\1ö")
 125     ("\\([-a-zA-Z\"`]\\)\"O" "\\1Ö")
 126     ("\\([-a-zA-Z\"`]\\)\"u" "\\1ü")
 127     ("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü")
 128     ("\\([-a-zA-Z\"`]\\)\"s" "\\1ß")
 129     ("\\([-a-zA-Z\"`]\\)\\\\3" "\\1ß")
 130     )
 131   "German translation table.
 132 This table uses a conservative translation approach and may translate too
 133 little.")
 134
 135
 136 (defvar iso-german-trans-tab iso-aggressive-german-trans-tab
 137   "Currently active translation table for German.")
 138
 139 (defun iso-german ()
 140  "Translate net conventions for German to ISO 8859-1."
 141  (interactive)
 142  (iso-translate-conventions iso-german-trans-tab))
 143
 144 (defvar iso-iso2tex-trans-tab
 145   '(
 146     ("ä" "{\\\\\"a}")
 147     ("à" "{\\\\`a}")
 148     ("á" "{\\\\'a}")
 149     ("ã" "{\\\\~a}")
 150     ("â" "{\\\\^a}")
 151     ("ë" "{\\\\\"e}")
 152     ("è" "{\\\\`e}")
 153     ("é" "{\\\\'e}")
 154     ("ê" "{\\\\^e}")
 155     ("ï" "{\\\\\"\\\\i}")
 156     ("ì" "{\\\\`\\\\i}")
 157     ("í" "{\\\\'\\\\i}")
 158     ("î" "{\\\\^\\\\i}")
 159     ("ö" "{\\\\\"o}")
 160     ("ò" "{\\\\`o}")
 161     ("ó" "{\\\\'o}")
 162     ("õ" "{\\\\~o}")
 163     ("ô" "{\\\\^o}")
 164     ("ü" "{\\\\\"u}")
 165     ("ù" "{\\\\`u}")
 166     ("ú" "{\\\\'u}")
 167     ("û" "{\\\\^u}")
 168     ("Ä" "{\\\\\"A}")
 169     ("À" "{\\\\`A}")
 170     ("Á" "{\\\\'A}")
 171     ("Ã" "{\\\\~A}")
 172     ("Â" "{\\\\^A}")
 173     ("Ë" "{\\\\\"E}")
 174     ("È" "{\\\\`E}")
 175     ("É" "{\\\\'E}")
 176     ("Ê" "{\\\\^E}")
 177     ("Ï" "{\\\\\"I}")
 178     ("Ì" "{\\\\`I}")
 179     ("Í" "{\\\\'I}")
 180     ("Î" "{\\\\^I}")
 181     ("Ö" "{\\\\\"O}")
 182     ("Ò" "{\\\\`O}")
 183     ("Ó" "{\\\\'O}")
 184     ("Õ" "{\\\\~O}")
 185     ("Ô" "{\\\\^O}")
 186     ("Ü" "{\\\\\"U}")
 187     ("Ù" "{\\\\`U}")
 188     ("Ú" "{\\\\'U}")
 189     ("Û" "{\\\\^U}")
 190     ("ñ" "{\\\\~n}")
 191     ("Ñ" "{\\\\~N}")
 192     ("ç" "{\\\\c c}")
 193     ("Ç" "{\\\\c C}")
 194     ("ß" "{\\\\ss}")
 195     ("\306" "{\\\\AE}")
 196     ("\346" "{\\\\ae}")
 197     ("\305" "{\\\\AA}")
 198     ("\345" "{\\\\aa}")
 199     ("\251" "{\\\\copyright}")
 200     ("£" "{\\\\pounds}")
 201     ("¶" "{\\\\P}")
 202     ("§" "{\\\\S}")
 203     ("¿" "{?`}")
 204     ("¡" "{!`}")
 205     )
 206   "Translation table for translating ISO 8859-1 characters to TeX sequences.")
 207
 208
 209
 210
 211 (defun iso-iso2tex ()
 212  "Translate ISO 8859-1 characters to TeX sequences."
 213  (interactive)
 214  (iso-translate-conventions iso-iso2tex-trans-tab))
 215
 216
 217 (defvar iso-tex2iso-trans-tab
 218   '(
 219     ("{\\\\\"a}" "ä")
 220     ("{\\\\`a}" "à")
 221     ("{\\\\'a}" "á")
 222     ("{\\\\~a}" "ã")
 223     ("{\\\\^a}" "â")
 224     ("{\\\\\"e}" "ë")
 225     ("{\\\\`e}" "è")
 226     ("{\\\\'e}" "é")
 227     ("{\\\\^e}" "ê")
 228     ("{\\\\\"\\\\i}" "ï")
 229     ("{\\\\`\\\\i}" "ì")
 230     ("{\\\\'\\\\i}" "í")
 231     ("{\\\\^\\\\i}" "î")
 232     ("{\\\\\"i}" "ï")
 233     ("{\\\\`i}" "ì")
 234     ("{\\\\'i}" "í")
 235     ("{\\\\^i}" "î")
 236     ("{\\\\\"o}" "ö")
 237     ("{\\\\`o}" "ò")
 238     ("{\\\\'o}" "ó")
 239     ("{\\\\~o}" "õ")
 240     ("{\\\\^o}" "ô")
 241     ("{\\\\\"u}" "ü")
 242     ("{\\\\`u}" "ù")
 243     ("{\\\\'u}" "ú")
 244     ("{\\\\^u}" "û")
 245     ("{\\\\\"A}" "Ä")
 246     ("{\\\\`A}" "À")
 247     ("{\\\\'A}" "Á")
 248     ("{\\\\~A}" "Ã")
 249     ("{\\\\^A}" "Â")
 250     ("{\\\\\"E}" "Ë")
 251     ("{\\\\`E}" "È")
 252     ("{\\\\'E}" "É")
 253     ("{\\\\^E}" "Ê")
 254     ("{\\\\\"I}" "Ï")
 255     ("{\\\\`I}" "Ì")
 256     ("{\\\\'I}" "Í")
 257     ("{\\\\^I}" "Î")
 258     ("{\\\\\"O}" "Ö")
 259     ("{\\\\`O}" "Ò")
 260     ("{\\\\'O}" "Ó")
 261     ("{\\\\~O}" "Õ")
 262     ("{\\\\^O}" "Ô")
 263     ("{\\\\\"U}" "Ü")
 264     ("{\\\\`U}" "Ù")
 265     ("{\\\\'U}" "Ú")
 266     ("{\\\\^U}" "Û")
 267     ("{\\\\~n}" "ñ")
 268     ("{\\\\~N}" "Ñ")
 269     ("{\\\\c c}" "ç")
 270     ("{\\\\c C}" "Ç")
 271     ("\\\\\"a" "ä")
 272     ("\\\\`a" "à")
 273     ("\\\\'a" "á")
 274     ("\\\\~a" "ã")
 275     ("\\\\^a" "â")
 276     ("\\\\\"e" "ë")
 277     ("\\\\`e" "è")
 278     ("\\\\'e" "é")
 279     ("\\\\^e" "ê")
 280     ("\\\\\"\\\\i" "ï")
 281     ("\\\\`\\\\i" "ì")
 282     ("\\\\'\\\\i" "í")
 283     ("\\\\^\\\\i" "î")
 284     ("\\\\\"i" "ï")
 285     ("\\\\`i" "ì")
 286     ("\\\\'i" "í")
 287     ("\\\\^i" "î")
 288     ("\\\\\"o" "ö")
 289     ("\\\\`o" "ò")
 290     ("\\\\'o" "ó")
 291     ("\\\\~o" "õ")
 292     ("\\\\^o" "ô")
 293     ("\\\\\"u" "ü")
 294     ("\\\\`u" "ù")
 295     ("\\\\'u" "ú")
 296     ("\\\\^u" "û")
 297     ("\\\\\"A" "Ä")
 298     ("\\\\`A" "À")
 299     ("\\\\'A" "Á")
 300     ("\\\\~A" "Ã")
 301     ("\\\\^A" "Â")
 302     ("\\\\\"E" "Ë")
 303     ("\\\\`E" "È")
 304     ("\\\\'E" "É")
 305     ("\\\\^E" "Ê")
 306     ("\\\\\"I" "Ï")
 307     ("\\\\`I" "Ì")
 308     ("\\\\'I" "Í")
 309     ("\\\\^I" "Î")
 310     ("\\\\\"O" "Ö")
 311     ("\\\\`O" "Ò")
 312     ("\\\\'O" "Ó")
 313     ("\\\\~O" "Õ")
 314     ("\\\\^O" "Ô")
 315     ("\\\\\"U" "Ü")
 316     ("\\\\`U" "Ù")
 317     ("\\\\'U" "Ú")
 318     ("\\\\^U" "Û")
 319     ("\\\\~n" "ñ")
 320     ("\\\\~N" "Ñ")
 321     ("\\\\\"{a}" "ä")
 322     ("\\\\`{a}" "à")
 323     ("\\\\'{a}" "á")
 324     ("\\\\~{a}" "ã")
 325     ("\\\\^{a}" "â")
 326     ("\\\\\"{e}" "ë")
 327     ("\\\\`{e}" "è")
 328     ("\\\\'{e}" "é")
 329     ("\\\\^{e}" "ê")
 330     ("\\\\\"{\\\\i}" "ï")
 331     ("\\\\`{\\\\i}" "ì")
 332     ("\\\\'{\\\\i}" "í")
 333     ("\\\\^{\\\\i}" "î")
 334     ("\\\\\"{i}" "ï")
 335     ("\\\\`{i}" "ì")
 336     ("\\\\'{i}" "í")
 337     ("\\\\^{i}" "î")
 338     ("\\\\\"{o}" "ö")
 339     ("\\\\`{o}" "ò")
 340     ("\\\\'{o}" "ó")
 341     ("\\\\~{o}" "õ")
 342     ("\\\\^{o}" "ô")
 343     ("\\\\\"{u}" "ü")
 344     ("\\\\`{u}" "ù")
 345     ("\\\\'{u}" "ú")
 346     ("\\\\^{u}" "û")
 347     ("\\\\\"{A}" "Ä")
 348     ("\\\\`{A}" "À")
 349     ("\\\\'{A}" "Á")
 350     ("\\\\~{A}" "Ã")
 351     ("\\\\^{A}" "Â")
 352     ("\\\\\"{E}" "Ë")
 353     ("\\\\`{E}" "È")
 354     ("\\\\'{E}" "É")
 355     ("\\\\^{E}" "Ê")
 356     ("\\\\\"{I}" "Ï")
 357     ("\\\\`{I}" "Ì")
 358     ("\\\\'{I}" "Í")
 359     ("\\\\^{I}" "Î")
 360     ("\\\\\"{O}" "Ö")
 361     ("\\\\`{O}" "Ò")
 362     ("\\\\'{O}" "Ó")
 363     ("\\\\~{O}" "Õ")
 364     ("\\\\^{O}" "Ô")
 365     ("\\\\\"{U}" "Ü")
 366     ("\\\\`{U}" "Ù")
 367     ("\\\\'{U}" "Ú")
 368     ("\\\\^{U}" "Û")
 369     ("\\\\~{n}" "ñ")
 370     ("\\\\~{N}" "Ñ")
 371     ("\\\\c{c}" "ç")
 372     ("\\\\c{C}" "Ç")
 373     ("{\\\\ss}" "ß")
 374     ("{\\\\AE}" "\306")
 375     ("{\\\\ae}" "\346")
 376     ("{\\\\AA}" "\305")
 377     ("{\\\\aa}" "\345")
 378     ("{\\\\copyright}" "\251")
 379     ("\\\\copyright{}" "\251")
 380     ("{\\\\pounds}" "£" )
 381     ("{\\\\P}" "¶" )
 382     ("{\\\\S}" "§" )
 383     ("\\\\pounds{}" "£" )
 384     ("\\\\P{}" "¶" )
 385     ("\\\\S{}" "§" )
 386     ("{\\?`}" "¿")
 387     ("{!`}" "¡")
 388     ("\\?`" "¿")
 389     ("!`" "¡")
 390     )
 391   "Translation table for translating TeX sequences to ISO 8859-1 characters.
 392 This table is not exhaustive (and due to TeX's power can never be). It only
 393 contains commonly used sequences.")
 394
 395 (defun iso-tex2iso ()
 396  "Translate TeX sequences to ISO 8859-1 characters."
 397  (interactive)
 398  (iso-translate-conventions iso-tex2iso-trans-tab))
 399
 400 (defvar iso-gtex2iso-trans-tab
 401   '(
 402     ("{\\\\\"a}" "ä")
 403     ("{\\\\`a}" "à")
 404     ("{\\\\'a}" "á")
 405     ("{\\\\~a}" "ã")
 406     ("{\\\\^a}" "â")
 407     ("{\\\\\"e}" "ë")
 408     ("{\\\\`e}" "è")
 409     ("{\\\\'e}" "é")
 410     ("{\\\\^e}" "ê")
 411     ("{\\\\\"\\\\i}" "ï")
 412     ("{\\\\`\\\\i}" "ì")
 413     ("{\\\\'\\\\i}" "í")
 414     ("{\\\\^\\\\i}" "î")
 415     ("{\\\\\"i}" "ï")
 416     ("{\\\\`i}" "ì")
 417     ("{\\\\'i}" "í")
 418     ("{\\\\^i}" "î")
 419     ("{\\\\\"o}" "ö")
 420     ("{\\\\`o}" "ò")
 421     ("{\\\\'o}" "ó")
 422     ("{\\\\~o}" "õ")
 423     ("{\\\\^o}" "ô")
 424     ("{\\\\\"u}" "ü")
 425     ("{\\\\`u}" "ù")
 426     ("{\\\\'u}" "ú")
 427     ("{\\\\^u}" "û")
 428     ("{\\\\\"A}" "Ä")
 429     ("{\\\\`A}" "À")
 430     ("{\\\\'A}" "Á")
 431     ("{\\\\~A}" "Ã")
 432     ("{\\\\^A}" "Â")
 433     ("{\\\\\"E}" "Ë")
 434     ("{\\\\`E}" "È")
 435     ("{\\\\'E}" "É")
 436     ("{\\\\^E}" "Ê")
 437     ("{\\\\\"I}" "Ï")
 438     ("{\\\\`I}" "Ì")
 439     ("{\\\\'I}" "Í")
 440     ("{\\\\^I}" "Î")
 441     ("{\\\\\"O}" "Ö")
 442     ("{\\\\`O}" "Ò")
 443     ("{\\\\'O}" "Ó")
 444     ("{\\\\~O}" "Õ")
 445     ("{\\\\^O}" "Ô")
 446     ("{\\\\\"U}" "Ü")
 447     ("{\\\\`U}" "Ù")
 448     ("{\\\\'U}" "Ú")
 449     ("{\\\\^U}" "Û")
 450     ("{\\\\~n}" "ñ")
 451     ("{\\\\~N}" "Ñ")
 452     ("{\\\\c c}" "ç")
 453     ("{\\\\c C}" "Ç")
 454     ("\\\\\"a" "ä")
 455     ("\\\\`a" "à")
 456     ("\\\\'a" "á")
 457     ("\\\\~a" "ã")
 458     ("\\\\^a" "â")
 459     ("\\\\\"e" "ë")
 460     ("\\\\`e" "è")
 461     ("\\\\'e" "é")
 462     ("\\\\^e" "ê")
 463     ("\\\\\"\\\\i" "ï")
 464     ("\\\\`\\\\i" "ì")
 465     ("\\\\'\\\\i" "í")
 466     ("\\\\^\\\\i" "î")
 467     ("\\\\\"i" "ï")
 468     ("\\\\`i" "ì")
 469     ("\\\\'i" "í")
 470     ("\\\\^i" "î")
 471     ("\\\\\"o" "ö")
 472     ("\\\\`o" "ò")
 473     ("\\\\'o" "ó")
 474     ("\\\\~o" "õ")
 475     ("\\\\^o" "ô")
 476     ("\\\\\"u" "ü")
 477     ("\\\\`u" "ù")
 478     ("\\\\'u" "ú")
 479     ("\\\\^u" "û")
 480     ("\\\\\"A" "Ä")
 481     ("\\\\`A" "À")
 482     ("\\\\'A" "Á")
 483     ("\\\\~A" "Ã")
 484     ("\\\\^A" "Â")
 485     ("\\\\\"E" "Ë")
 486     ("\\\\`E" "È")
 487     ("\\\\'E" "É")
 488     ("\\\\^E" "Ê")
 489     ("\\\\\"I" "Ï")
 490     ("\\\\`I" "Ì")
 491     ("\\\\'I" "Í")
 492     ("\\\\^I" "Î")
 493     ("\\\\\"O" "Ö")
 494     ("\\\\`O" "Ò")
 495     ("\\\\'O" "Ó")
 496     ("\\\\~O" "Õ")
 497     ("\\\\^O" "Ô")
 498     ("\\\\\"U" "Ü")
 499     ("\\\\`U" "Ù")
 500     ("\\\\'U" "Ú")
 501     ("\\\\^U" "Û")
 502     ("\\\\~n" "ñ")
 503     ("\\\\~N" "Ñ")
 504     ("\\\\\"{a}" "ä")
 505     ("\\\\`{a}" "à")
 506     ("\\\\'{a}" "á")
 507     ("\\\\~{a}" "ã")
 508     ("\\\\^{a}" "â")
 509     ("\\\\\"{e}" "ë")
 510     ("\\\\`{e}" "è")
 511     ("\\\\'{e}" "é")
 512     ("\\\\^{e}" "ê")
 513     ("\\\\\"{\\\\i}" "ï")
 514     ("\\\\`{\\\\i}" "ì")
 515     ("\\\\'{\\\\i}" "í")
 516     ("\\\\^{\\\\i}" "î")
 517     ("\\\\\"{i}" "ï")
 518     ("\\\\`{i}" "ì")
 519     ("\\\\'{i}" "í")
 520     ("\\\\^{i}" "î")
 521     ("\\\\\"{o}" "ö")
 522     ("\\\\`{o}" "ò")
 523     ("\\\\'{o}" "ó")
 524     ("\\\\~{o}" "õ")
 525     ("\\\\^{o}" "ô")
 526     ("\\\\\"{u}" "ü")
 527     ("\\\\`{u}" "ù")
 528     ("\\\\'{u}" "ú")
 529     ("\\\\^{u}" "û")
 530     ("\\\\\"{A}" "Ä")
 531     ("\\\\`{A}" "À")
 532     ("\\\\'{A}" "Á")
 533     ("\\\\~{A}" "Ã")
 534     ("\\\\^{A}" "Â")
 535     ("\\\\\"{E}" "Ë")
 536     ("\\\\`{E}" "È")
 537     ("\\\\'{E}" "É")
 538     ("\\\\^{E}" "Ê")
 539     ("\\\\\"{I}" "Ï")
 540     ("\\\\`{I}" "Ì")
 541     ("\\\\'{I}" "Í")
 542     ("\\\\^{I}" "Î")
 543     ("\\\\\"{O}" "Ö")
 544     ("\\\\`{O}" "Ò")
 545     ("\\\\'{O}" "Ó")
 546     ("\\\\~{O}" "Õ")
 547     ("\\\\^{O}" "Ô")
 548     ("\\\\\"{U}" "Ü")
 549     ("\\\\`{U}" "Ù")
 550     ("\\\\'{U}" "Ú")
 551     ("\\\\^{U}" "Û")
 552     ("\\\\~{n}" "ñ")
 553     ("\\\\~{N}" "Ñ")
 554     ("\\\\c{c}" "ç")
 555     ("\\\\c{C}" "Ç")
 556     ("{\\\\ss}" "ß")
 557     ("{\\\\AE}" "\306")
 558     ("{\\\\ae}" "\346")
 559     ("{\\\\AA}" "\305")
 560     ("{\\\\aa}" "\345")
 561     ("{\\\\copyright}" "\251")
 562     ("\\\\copyright{}" "\251")
 563     ("{\\\\pounds}" "£" )
 564     ("{\\\\P}" "¶" )
 565     ("{\\\\S}" "§" )
 566     ("\\\\pounds{}" "£" )
 567     ("\\\\P{}" "¶" )
 568     ("\\\\S{}" "§" )
 569     ("?`" "¿")
 570     ("!`" "¡")
 571     ("{?`}" "¿")
 572     ("{!`}" "¡")
 573     ("\"a" "ä")
 574     ("\"A" "Ä")
 575     ("\"o" "ö")
 576     ("\"O" "Ö")
 577     ("\"u" "ü")
 578     ("\"U" "Ü")
 579     ("\"s" "ß")
 580     ("\\\\3" "ß")
 581     )
 582   "Translation table for translating German TeX sequences to ISO 8859-1.
 583 This table is not exhaustive (and due to TeX's power can never be).  It only
 584 contains commonly used sequences.")
 585
 586 (defvar iso-iso2gtex-trans-tab
 587   '(
 588     ("ä" "\"a")
 589     ("à" "{\\\\`a}")
 590     ("á" "{\\\\'a}")
 591     ("ã" "{\\\\~a}")
 592     ("â" "{\\\\^a}")
 593     ("ë" "{\\\\\"e}")
 594     ("è" "{\\\\`e}")
 595     ("é" "{\\\\'e}")
 596     ("ê" "{\\\\^e}")
 597     ("ï" "{\\\\\"\\\\i}")
 598     ("ì" "{\\\\`\\\\i}")
 599     ("í" "{\\\\'\\\\i}")
 600     ("î" "{\\\\^\\\\i}")
 601     ("ö" "\"o")
 602     ("ò" "{\\\\`o}")
 603     ("ó" "{\\\\'o}")
 604     ("õ" "{\\\\~o}")
 605     ("ô" "{\\\\^o}")
 606     ("ü" "\"u")
 607     ("ù" "{\\\\`u}")
 608     ("ú" "{\\\\'u}")
 609     ("û" "{\\\\^u}")
 610     ("Ä" "\"A")
 611     ("À" "{\\\\`A}")
 612     ("Á" "{\\\\'A}")
 613     ("Ã" "{\\\\~A}")
 614     ("Â" "{\\\\^A}")
 615     ("Ë" "{\\\\\"E}")
 616     ("È" "{\\\\`E}")
 617     ("É" "{\\\\'E}")
 618     ("Ê" "{\\\\^E}")
 619     ("Ï" "{\\\\\"I}")
 620     ("Ì" "{\\\\`I}")
 621     ("Í" "{\\\\'I}")
 622     ("Î" "{\\\\^I}")
 623     ("Ö" "\"O")
 624     ("Ò" "{\\\\`O}")
 625     ("Ó" "{\\\\'O}")
 626     ("Õ" "{\\\\~O}")
 627     ("Ô" "{\\\\^O}")
 628     ("Ü" "\"U")
 629     ("Ù" "{\\\\`U}")
 630     ("Ú" "{\\\\'U}")
 631     ("Û" "{\\\\^U}")
 632     ("ñ" "{\\\\~n}")
 633     ("Ñ" "{\\\\~N}")
 634     ("ç" "{\\\\c c}")
 635     ("Ç" "{\\\\c C}")
 636     ("ß" "\"s")
 637     ("\306" "{\\\\AE}")
 638     ("\346" "{\\\\ae}")
 639     ("\305" "{\\\\AA}")
 640     ("\345" "{\\\\aa}")
 641     ("\251" "{\\\\copyright}")
 642     ("£" "{\\\\pounds}")
 643     ("¶" "{\\\\P}")
 644     ("§" "{\\\\S}")
 645     ("¿" "{?`}")
 646     ("¡" "{!`}")
 647     )
 648   "Translation table for translating ISO 8859-1 characters to German TeX.")
 649
 650 (defun iso-gtex2iso ()
 651  "Translate German TeX sequences to ISO 8859-1 characters."
 652  (interactive)
 653  (iso-translate-conventions iso-gtex2iso-trans-tab))
 654
 655
 656 (defun iso-iso2gtex ()
 657  "Translate ISO 8859-1 characters to German TeX sequences."
 658  (interactive)
 659  (iso-translate-conventions iso-iso2gtex-trans-tab))
 660
 661
 662 (defun iso-german-tex-p ()
 663  "Check if tex buffer is German LaTeX."
 664  (save-excursion
 665    (save-restriction
 666      (widen)
 667      (goto-char (point-min))
 668      (re-search-forward "\\\\documentstyle\\[.*german.*\\]" nil t))))
 669
 670 (defun iso-fix-iso2tex ()
 671   "Turn ISO 8859-1 (aka. ISO Latin-1) buffer into TeX sequences.
 672 If German TeX is used, German TeX sequences are generated."
 673   (if (or (equal major-mode 'latex-mode)
 674           (equal major-mode 'LaTeX-mode)) ; AucTeX wants this
 675       (if (iso-german-tex-p)
 676           (iso-iso2gtex)
 677         (iso-iso2tex)))
 678   (if (or (equal major-mode 'tex-mode)
 679           (equal major-mode 'TeX-mode) ; AucTeX wants this
 680           (equal major-mode 'plain-tex-mode))
 681       (iso-iso2tex)))
 682
 683 (defun iso-fix-tex2iso ()
 684   "Turn TeX sequences into ISO 8859-1 (aka. ISO Latin-1) characters.
 685 This function recognices German TeX buffers."
 686   (if (or (equal major-mode 'latex-mode)
 687           (equal major-mode 'Latex-mode)) ; AucTeX wants this
 688       (if (iso-german-tex-p)
 689           (iso-gtex2iso)
 690         (iso-tex2iso)))
 691   (if (or (equal major-mode 'tex-mode)
 692           (equal major-mode 'TeX-mode)  ; AucTeX wants this
 693           (equal major-mode 'plain-tex-mode))
 694       (iso-tex2iso)))
 695
 696 (defun iso-cvt-ffh ()
 697   "find-file-hook for iso-cvt.el."
 698   (iso-fix-tex2iso)
 699   (set-buffer-modified-p nil))
 700
 701 (defun iso-cvt-wfh ()
 702   "write file hook for iso-cvt.el."
 703   (iso-fix-iso2tex))
 704
 705 (defun iso-cvt-ash ()
 706   "after save hook for iso-cvt.el."
 707   (iso-fix-tex2iso)
 708   (set-buffer-modified-p nil))
 709
 710 (add-hook 'find-file-hooks 'iso-cvt-ffh)
 711 (add-hook 'write-file-hooks 'iso-cvt-wfh)
 712 (add-hook 'after-save-hook 'iso-cvt-ash)
 713
 714 ;;; iso-cvt.el ends here