# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1233753141 0
# Node ID dcfd965d65a1f7b439cc67ae3eda8b66388cb9b0
# Parent  0347879667ed19a6c266459147ca271d05581238
Correct invalid-sequence-coding-system spec, Roman-alphabet languages.

I had been testing with the Cyrillic language environments, and I have code
in my own init file that does something similar, so I hadn't noticed that
this had gone wrong.

lisp/ChangeLog addition:

2009-02-04  Aidan Kehoe  <kehoea@parhasard.net>

	* mule/latin.el:
	Specify windows-1250 as the invalid-sequence-coding-system for the
	iso-8859-2 languages; actually *use* the
	invalid-sequence-coding-system for German and the other iso-8859-1
	language environments.

diff -r 0347879667ed -r dcfd965d65a1 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Feb 04 12:41:14 2009 +0000
+++ b/lisp/ChangeLog	Wed Feb 04 13:12:21 2009 +0000
@@ -1,3 +1,11 @@
+2009-02-04  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* mule/latin.el:
+	Specify windows-1250 as the invalid-sequence-coding-system for the
+	iso-8859-2 languages; actually *use* the
+	invalid-sequence-coding-system for German and the other iso-8859-1
+	language environments.
+
 2009-02-04  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* coding.el (force-coding-system-equivalency): 
diff -r 0347879667ed -r dcfd965d65a1 lisp/mule/latin.el
--- a/lisp/mule/latin.el	Wed Feb 04 12:41:14 2009 +0000
+++ b/lisp/mule/latin.el	Wed Feb 04 13:12:21 2009 +0000
@@ -1022,7 +1022,7 @@
     ((latin-iso8859-2 iso-8859-2 "latin-2-prefix" "Latin-2" "ISO-8859-2"
 " Albanian, Czech, English, German, Hungarian, Polish, Romanian,
  Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
- and Swedish.") ;; " added because fontification got screwed up, CVS-20061203.
+ and Swedish." windows-1250) 
      (("Albanian" "sq")
       ("Croatian" ("hrvatski" "hr") "TUTORIAL.hr")
       ("Czech" ("cs" "cz") "TUTORIAL.cs" "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!"
@@ -1076,6 +1076,8 @@
        (coding-system ,codesys)
        (coding-priority ,codesys)
        (native-coding-system ,codesys)
+       (invalid-sequence-coding-system ,(or invalid-sequence-coding-system
+                                          codesys))
        ,@(if locale `((locale . ,locale)))
        ,@(if tutorial `((tutorial . ,tutorial)
 			(tutorial-coding-system . ,codesys)))