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)