changeset: 4417:0cee1ff42db4e80491b04d36066f37ff9794aff2 tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; 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(a)parhasard.net&gt; * 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＠parhasa +2008-02-03 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * iso8859-1.el (ascii-case-table): + Correct the order of the arguments to #'put-case-table-pair. + 2008-01-21 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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.") _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches