# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1202031325 -3600
# Node ID 0cee1ff42db4e80491b04d36066f37ff9794aff2
# Parent  930bb9cba65a668a939d8d4369f4d1db1b33f156
Correct the initialisation of ascii-case-table.

2008-02-03  Aidan Kehoe  <kehoea@parhasard.net>

	* iso8859-1.el (ascii-case-table):
	Correct the order of the arguments to #'put-case-table-pair.

diff -r 930bb9cba65a -r 0cee1ff42db4 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Feb 01 09:36:51 2008 -0700
+++ b/lisp/ChangeLog	Sun Feb 03 10:35:25 2008 +0100
@@ -1,3 +1,8 @@
+2008-02-03  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* iso8859-1.el (ascii-case-table): 
+	Correct the order of the arguments to #'put-case-table-pair. 
+
 2008-01-21  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* info.el (Info-suffix-list): 
diff -r 930bb9cba65a -r 0cee1ff42db4 lisp/iso8859-1.el
--- a/lisp/iso8859-1.el	Fri Feb 01 09:36:51 2008 -0700
+++ b/lisp/iso8859-1.el	Sun Feb 03 10:35:25 2008 +0100
@@ -39,8 +39,8 @@
     for lower from (char-int ?a) to (char-int ?z)
     and upper from (char-int ?A) to (char-int ?Z)
     with table = (make-case-table)
-    do (put-case-table-pair (coerce lower 'character)
-                            (coerce upper 'character)
+    do (put-case-table-pair (coerce upper 'character)
+                            (coerce lower 'character)
                             table)
     finally return table)
   "Case table for the ASCII character set.")