Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
4416:930bb9cba65a 4417:0cee1ff42db4
37 (defvar ascii-case-table 37 (defvar ascii-case-table
38 (loop 38 (loop
39 for lower from (char-int ?a) to (char-int ?z) 39 for lower from (char-int ?a) to (char-int ?z)
40 and upper from (char-int ?A) to (char-int ?Z) 40 and upper from (char-int ?A) to (char-int ?Z)
41 with table = (make-case-table) 41 with table = (make-case-table)
42 do (put-case-table-pair (coerce lower 'character) 42 do (put-case-table-pair (coerce upper 'character)
43 (coerce upper 'character) 43 (coerce lower 'character)
44 table) 44 table)
45 finally return table) 45 finally return table)
46 "Case table for the ASCII character set.") 46 "Case table for the ASCII character set.")
47 47
48 (loop 48 (loop