Mercurial > hg > xemacs-beta

diff lisp/iso8859-1.el @ 4417:0cee1ff42db4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 03 Feb 2008 10:35:25 +0100
parents 9fdac4a4ae62
children 57a64ab2ae45 308d34e9f07d
line wrap: on
line diff
--- 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.")