Mercurial > hg > xemacs-beta

comparison tests/automated/query-coding-tests.el @ 5384:3889ef128488

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix misspelled words, and some grammar, across the entire source tree. See xemacs-patches message with ID <AANLkTi=edkEKtK3pZ60ytsG5pTJQy2TjAEVCZCLOa-oA@mail.gmail.com>.
author Jerry James <james@xemacs.org>
date Thu, 24 Mar 2011 11:00:11 -0600
parents 0f66906b6e37
children 4dee0387b9de
comparison
equal deleted inserted replaced
5383:294ab9180fad 5384:3889ef128488
387 "check #'unencodable-char-position doesn't think latin-1 encodes U+20AC") 387 "check #'unencodable-char-position doesn't think latin-1 encodes U+20AC")
388 (Assert 388 (Assert
389 (equal '(257) (unencodable-char-position (point-min) (point-max) 389 (equal '(257) (unencodable-char-position (point-min) (point-max)
390 'iso-8859-1 1)) 390 'iso-8859-1 1))
391 "check #'unencodable-char-position doesn't think latin-1 encodes U+20AC") 391 "check #'unencodable-char-position doesn't think latin-1 encodes U+20AC")
392 ;; Compatiblity, sigh: 392 ;; Compatibility, sigh:
393 (Assert 393 (Assert
394 (equal '(257) (unencodable-char-position (point-min) (point-max) 394 (equal '(257) (unencodable-char-position (point-min) (point-max)
395 'iso-8859-1 0)) 395 'iso-8859-1 0))
396 "check #'unencodable-char-position has some borked GNU semantics") 396 "check #'unencodable-char-position has some borked GNU semantics")
397 (dotimes (i 6) (insert (decode-char 'ucs #x20ac))) 397 (dotimes (i 6) (insert (decode-char 'ucs #x20ac)))