Adding cp858?

[Reiner Steib <reinersteib+gmane@imap.cc>]

Hi,

I just opened the LaTeX file <http://home.vr-web.de/was/x/bad.tex>[1]
in Emacs.  To my surprise, the non-ASCII characters were not displayed
correctly.  The file is encoded in cp858; cp858 is missing in
`latex-inputenc-coding-alist':

,----
|    ;; ("cp858" . undecided) ; IBM code page 850 but with a euro symbol
`----

According to the LaTeX *.def files, the only difference between cp850
and cp858 is the `€' (EURO SIGN, U+20AC) replacing `ı' (LATIN SMALL
LETTER DOTLESS I, U+0131). [2]

May I add the following change?  (The "(cp-make-coding-system cp858
...)" part is a copy of the corresponding cp850 entry with dotless i
replaced by the EUR sign.

I don't know if a similar change to codepage.el should be done as
well.

2006-09-05  Reiner Steib  <Reiner.Steib@gmx.de>

	* international/latexenc.el (latex-inputenc-coding-alist): Add cp858.

	* international/code-pages.el: Add cp858.

--8<---------------cut here---------------start------------->8---
--- international/latexenc.el	9 Aug 2006 01:11:44 -0000	1.16
+++ international/latexenc.el	5 Sep 2006 14:54:04 -0000
@@ -63,7 +63,7 @@
     ("cp437" . cp437) ; IBM code page 437: 225 is \beta
     ("cp850" . cp850) ; IBM code page 850
     ("cp852" . cp852) ; IBM code page 852
-    ;; ("cp858" . undecided) ; IBM code page 850 but with a euro symbol
+    ("cp858" . cp858) ; IBM code page 850 but with a euro symbol
     ("cp865" . cp865) ; IBM code page 865
     ;; The DECMultinational charaterset used by the OpenVMS system
     ;; ("decmulti" . undecided)

--- international/code-pages.el	19 May 2006 04:24:00 -0000	1.35
+++ international/code-pages.el	5 Sep 2006 14:54:04 -0000
@@ -1273,6 +1273,138 @@
   ?\■
   ?\ ])
 
+;;;###autoload(autoload-coding-system 'cp858 '(require 'code-pages))
+(cp-make-coding-system
+ cp858
+ [?\Ç
+  ?\ü
+  ?\é
+  ?\â
+  ?\ä
+  ?\à
+  ?\å
+  ?\ç
+  ?\ê
+  ?\ë
+  ?\è
+  ?\ï
+  ?\î
+  ?\ì
+  ?\Ä
+  ?\Å
+  ?\É
+  ?\æ
+  ?\Æ
+  ?\ô
+  ?\ö
+  ?\ò
+  ?\û
+  ?\ù
+  ?\ÿ
+  ?\Ö
+  ?\Ü
+  ?\ø
+  ?\£
+  ?\Ø
+  ?\×
+  ?\ƒ
+  ?\á
+  ?\í
+  ?\ó
+  ?\ú
+  ?\ñ
+  ?\Ñ
+  ?\ª
+  ?\º
+  ?\¿
+  ?\®
+  ?\¬
+  ?\½
+  ?\¼
+  ?\¡
+  ?\«
+  ?\»
+  ?\░
+  ?\▒
+  ?\▓
+  ?\│
+  ?\┤
+  ?\Á
+  ?\Â
+  ?\À
+  ?\©
+  ?\╣
+  ?\║
+  ?\╗
+  ?\╝
+  ?\¢
+  ?\¥
+  ?\┐
+  ?\└
+  ?\┴
+  ?\┬
+  ?\├
+  ?\─
+  ?\┼
+  ?\ã
+  ?\Ã
+  ?\╚
+  ?\╔
+  ?\╩
+  ?\╦
+  ?\╠
+  ?\═
+  ?\╬
+  ?\¤
+  ?\ð
+  ?\Ð
+  ?\Ê
+  ?\Ë
+  ?\È
+  ?\€
+  ?\Í
+  ?\Î
+  ?\Ï
+  ?\┘
+  ?\┌
+  ?\█
+  ?\▄
+  ?\¦
+  ?\Ì
+  ?\▀
+  ?\Ó
+  ?\ß
+  ?\Ô
+  ?\Ò
+  ?\õ
+  ?\Õ
+  ?\µ
+  ?\þ
+  ?\Þ
+  ?\Ú
+  ?\Û
+  ?\Ù
+  ?\ý
+  ?\Ý
+  ?\¯
+  ?\´
+  ?\­
+  ?\±
+  ?\‗
+  ?\¾
+  ?\¶
+  ?\§
+  ?\÷
+  ?\¸
+  ?\°
+  ?\¨
+  ?\·
+  ?\¹
+  ?\³
+  ?\²
+  ?\■
+  ?\ ])
+
 ;;;###autoload(autoload-coding-system 'cp860 '(require 'code-pages))
 (cp-make-coding-system
  cp860
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.

[1]
,----[ http://home.vr-web.de/was/x/bad.tex ]
| \documentclass[a4paper,twoside]{article}
| \usepackage[cp858]{inputenc}              % OS/2 (sic!)
| [...]
`----

[2] From TeXlive 2005:

,----[ diff -U0 texmf-dist/tex/latex/base/{cp850,cp858}.def ]
| --- texmf-dist/tex/latex/base/cp850.def 2004-03-02 00:28:48.000000000 +0100
| +++ texmf-dist/tex/latex/base/cp858.def 2004-03-02 00:28:48.000000000 +0100
| @@ -2 +2 @@
| -%% This is file `cp850.def',
| +%% This is file `cp858.def',
| @@ -7 +7 @@
| -%% inputenc.dtx  (with options: `cp850')
| +%% inputenc.dtx  (with options: `cp858')
| @@ -54 +54 @@
| -  \ProvidesFile{cp850.def}
| +  \ProvidesFile{cp858.def}
| @@ -56,3 +55,0 @@
| -%%
| -%% If you need a euro symbol, try cp858 instead.
| -%%
| @@ -137 +134 @@
| -\DeclareInputText{213}{\i}
| +\DeclareInputText{213}{\texteuro}
| @@ -180 +177 @@
| -%% End of file `cp850.def'.
| +%% End of file `cp858.def'.
`----
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/