Mercurial > hg > xemacs-beta

comparison tests/automated/mule-tests.el @ 5438:8d29f1c4bb98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with 21.5 trunk.
author Mats Lidell <matsl@xemacs.org>
date Fri, 26 Nov 2010 06:43:36 +0100
parents 308d34e9f07d c096d8051f89
children 17bcc2aab111
comparison
equal deleted inserted replaced
5437:002cb5224e4f 5438:8d29f1c4bb98
457 (progn 457 (progn
458 (set-unicode-conversion scaron code) 458 (set-unicode-conversion scaron code)
459 (Assert (eq code (char-to-unicode scaron))) 459 (Assert (eq code (char-to-unicode scaron)))
460 (Assert (eq scaron (unicode-to-char code '(latin-iso8859-2))))) 460 (Assert (eq scaron (unicode-to-char code '(latin-iso8859-2)))))
461 finally (set-unicode-conversion scaron initial-unicode)) 461 finally (set-unicode-conversion scaron initial-unicode))
462 (Check-Error wrong-type-argument (set-unicode-conversion scaron -10000))) 462 (Check-Error args-out-of-range (set-unicode-conversion scaron -10000)))
463 463
464 (dolist (utf-8-char 464 (dolist (utf-8-char
465 '("\xc6\x92" ;; U+0192 LATIN SMALL LETTER F WITH HOOK 465 '("\xc6\x92" ;; U+0192 LATIN SMALL LETTER F WITH HOOK
466 "\xe2\x81\x8a" ;; U+204A TIRONIAN SIGN ET 466 "\xe2\x81\x8a" ;; U+204A TIRONIAN SIGN ET
467 "\xe2\x82\xae" ;; U+20AE TUGRIK SIGN 467 "\xe2\x82\xae" ;; U+20AE TUGRIK SIGN