Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 4396:e97f16fb2e25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't assume lisp-tests.el will be correctly read as UTF-8. 2008-01-15 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el (literal-with-uninterned): Use ?\x syntax for Latin-1 characters, don't assume that the file will be read as UTF-8.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 15 Jan 2008 22:59:28 +0100
parents cacc942c0d0f
children eecd28508f4a
comparison
equal deleted inserted replaced
4395:b03b5e362fcf 4396:e97f16fb2e25
1301 (Assert (all-completions " " '((" hidden" . "object")))) 1301 (Assert (all-completions " " '((" hidden" . "object"))))
1302 1302
1303 (let* ((literal-with-uninterned 1303 (let* ((literal-with-uninterned
1304 '(first-element 1304 '(first-element
1305 [#1=#:G32976 #2=#:G32974 #3=#:G32971 #4=#:G32969 alias 1305 [#1=#:G32976 #2=#:G32974 #3=#:G32971 #4=#:G32969 alias
1306 #s(hash-table size 256 data (969 ?ù 55 ?7 166 ?¦ )) 1306 #s(hash-table size 256 data (969 ?\xF9 55 ?7 166 ?\xA6))
1307 #5=#:G32970 #6=#:G32972])) 1307 #5=#:G32970 #6=#:G32972]))
1308 (print-readably t) 1308 (print-readably t)
1309 (print-gensym t) 1309 (print-gensym t)
1310 (printed-with-uninterned (prin1-to-string literal-with-uninterned)) 1310 (printed-with-uninterned (prin1-to-string literal-with-uninterned))
1311 (awkward-regexp "#1=#") 1311 (awkward-regexp "#1=#")