Mercurial > hg > xemacs-beta
comparison tests/automated/lisp-tests.el @ 4580:1d11ecca9cd0
Print char table values correctly.
src/ChangeLog addition:
2009-01-16 Aidan Kehoe <kehoea@parhasard.net>
* chartab.c (print_table_entry):
Print char table values correctly, eliminating some confusion
between symbols and strings.
tests/ChangeLog addition:
2009-01-18 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Check that a bug I fixed in char table printing is really gone.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 18 Jan 2009 12:49:53 +0000 |
| parents | eecd28508f4a |
| children | 00ed9903a988 |
comparison
equal
deleted
inserted
replaced
| 4576:774e5c7522bf | 4580:1d11ecca9cd0 |
|---|---|
| 1325 (awkward-regexp "#1=#") | 1325 (awkward-regexp "#1=#") |
| 1326 (first-match-start (string-match awkward-regexp | 1326 (first-match-start (string-match awkward-regexp |
| 1327 printed-with-uninterned))) | 1327 printed-with-uninterned))) |
| 1328 (Assert (null (string-match awkward-regexp printed-with-uninterned | 1328 (Assert (null (string-match awkward-regexp printed-with-uninterned |
| 1329 (1+ first-match-start))))) | 1329 (1+ first-match-start))))) |
| 1330 | |
| 1331 (let ((char-table-with-string #s(char-table data (?\x00 "text"))) | |
| 1332 (char-table-with-symbol #s(char-table data (?\x00 text)))) | |
| 1333 (Assert (not (string-equal char-table-with-string char-table-with-symbol)) | |
| 1334 "Check that char table elements are quoted correctly when printing")) | |
| 1335 |