commit: Correct the initialisation of ascii-case-table.

[Aidan Kehoe]

changeset:   4417:0cee1ff42db4e80491b04d36066f37ff9794aff2
tag:         tip
user:        Aidan Kehoe <kehoea at parhasard.net>
date:        Sun Feb 03 10:35:25 2008 +0100
files:       lisp/ChangeLog lisp/iso8859-1.el
description:
Correct the initialisation of ascii-case-table.

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

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


diff -r 930bb9cba65a668a939d8d4369f4d1db1b33f156 -r 0cee1ff42db4e80491b04d36066f37ff9794aff2 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-01-21  Aidan Kehoe  <kehoea at parhasa
+2008-02-03  Aidan Kehoe  <kehoea at 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 at parhasard.net>
 
 	* info.el (Info-suffix-list): 
diff -r 930bb9cba65a668a939d8d4369f4d1db1b33f156 -r 0cee1ff42db4e80491b04d36066f37ff9794aff2 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.")