Mercurial > hg > xemacs-beta
changeset 4581:c02fdef8db8b
Merge.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 18 Jan 2009 12:51:25 +0000 |
| parents | 68f74b080e94 (current diff) 1d11ecca9cd0 (diff) |
| children | 00ed9903a988 |
| files | src/ChangeLog |
| diffstat | 4 files changed, 18 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Sun Jan 18 12:41:58 2009 +0000 +++ b/src/ChangeLog Sun Jan 18 12:51:25 2009 +0000 @@ -1,3 +1,9 @@ +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. + 2009-01-10 Aidan Kehoe <kehoea@parhasard.net> * objects-msw.c (mswindows_font_spec_matches_charset_stage_2):
--- a/src/chartab.c Sun Jan 18 12:41:58 2009 +0000 +++ b/src/chartab.c Sun Jan 18 12:51:25 2009 +0000 @@ -317,7 +317,7 @@ a->first = 0; lisprange = encode_char_table_range (range); GCPRO1 (lisprange); - write_fmt_string_lisp (a->printcharfun, "%s %s", 2, lisprange, val); + write_fmt_string_lisp (a->printcharfun, "%s %S", 2, lisprange, val); UNGCPRO; return 0; }
--- a/tests/ChangeLog Sun Jan 18 12:41:58 2009 +0000 +++ b/tests/ChangeLog Sun Jan 18 12:51:25 2009 +0000 @@ -1,3 +1,8 @@ +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. + 2009-01-11 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el ():
--- a/tests/automated/lisp-tests.el Sun Jan 18 12:41:58 2009 +0000 +++ b/tests/automated/lisp-tests.el Sun Jan 18 12:51:25 2009 +0000 @@ -1327,3 +1327,9 @@ printed-with-uninterned))) (Assert (null (string-match awkward-regexp printed-with-uninterned (1+ first-match-start))))) + +(let ((char-table-with-string #s(char-table data (?\x00 "text"))) + (char-table-with-symbol #s(char-table data (?\x00 text)))) + (Assert (not (string-equal char-table-with-string char-table-with-symbol)) + "Check that char table elements are quoted correctly when printing")) +