Mercurial > hg > xemacs-beta

comparison lisp/iso8859-1.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 3ecd8885ac67
children efa52de8c279
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
159 (while pairs 159 (while pairs
160 (aset downcase (car (car pairs)) (car (cdr (car pairs)))) 160 (aset downcase (car (car pairs)) (car (cdr (car pairs))))
161 (setq pairs (cdr pairs))) 161 (setq pairs (cdr pairs)))
162 (cons 'setq 162 (cons 'setq
163 (cons 'iso8859/1-case-table 163 (cons 'iso8859/1-case-table
164 (list (list 'purecopy 164 (list
165 (list 'quote 165 (list 'quote
166 (list downcase nil nil nil))))))))) 166 (list downcase nil nil nil))))))))
167 167
168 (?\300 ?\340) ; Agrave 168 (?\300 ?\340) ; Agrave
169 (?\301 ?\341) ; Aacute 169 (?\301 ?\341) ; Aacute
170 (?\302 ?\342) ; Acircumflex 170 (?\302 ?\342) ; Acircumflex
171 (?\303 ?\343) ; Atilde 171 (?\303 ?\343) ; Atilde