Mercurial > hg > xemacs-beta
changeset 4417:0cee1ff42db4
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 | 930bb9cba65a |
| children | 9bcdf9a3a783 |
| files | lisp/ChangeLog lisp/iso8859-1.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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.")