Mercurial > hg > xemacs-beta
diff lisp/iso/iso-cvt.el @ 2:ac2d302a0011 r19-15b2
Import from CVS: tag r19-15b2
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:46:35 +0200 |
parents | 376386a54a3c |
children |
line wrap: on
line diff
--- a/lisp/iso/iso-cvt.el Mon Aug 13 08:45:53 2007 +0200 +++ b/lisp/iso/iso-cvt.el Mon Aug 13 08:46:35 2007 +0200 @@ -1,65 +1,70 @@ -;; iso-cvt.el -- translate to ISO 8859-1 from/to net/TeX conventions -;; Copyright © 1993, 1994 Free Software Foundation, Inc. -;; Was formerly called gm-lingo.el. +;;; iso-cvt.el --- translate to ISO 8859-1 from/to net/TeX conventions +;; This file was formerly called gm-lingo.el. + +;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. ;; Author: Michael Gschwind <mike@vlsivie.tuwien.ac.at> ;; Keywords: tex, iso, latin, i18n -;; This file is part of GNU Emacs. +;; This file is part of XEmacs. -;; GNU Emacs is free software; you can redistribute it and/or modify +;; XEmacs 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, +;; XEmacs 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, 675 Mass Ave, Cambridge, MA 02139, USA. +;; along with XEmacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Synched up with: FSF 19.34. ;;; Commentary: + ;; This lisp code serves two purposes, both of which involve ;; the translation of various conventions for representing European ;; character sets to ISO 8859-1. -; 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 umlaute 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.) +;; 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 +;; 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 certains 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) +;;; 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 +;;; 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 ;;; Code: @@ -682,7 +687,7 @@ (defun iso-fix-tex2iso () "Turn TeX sequences into ISO 8859-1 (aka. ISO Latin-1) characters. -This function recognices German TeX buffers." +This function recognizes German TeX buffers." (if (or (equal major-mode 'latex-mode) (equal major-mode 'Latex-mode)) ; AucTeX wants this (if (iso-german-tex-p)