Mercurial > emacs
changeset 102828:503e5715236a
(print_object): Make each lowest sub_char_table start a new line.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 03 Apr 2009 06:23:49 +0000 |
| parents | e0b3a06b9b5c |
| children | a67f2f23220d |
| files | src/print.c |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/print.c Fri Apr 03 01:57:12 2009 +0000 +++ b/src/print.c Fri Apr 03 06:23:49 2009 +0000 @@ -2116,6 +2116,13 @@ /* We print a char-table as if it were a vector, lumping the parent and default slots in with the character slots. But we add #^ as a prefix. */ + + /* Make each lowest sub_char_table start a new line. + Otherwise we'll make a line extremely long, which + results in slow redisplay. */ + if (SUB_CHAR_TABLE_P (obj) + && XINT (XSUB_CHAR_TABLE (obj)->depth) == 3) + PRINTCHAR ('\n'); PRINTCHAR ('#'); PRINTCHAR ('^'); if (SUB_CHAR_TABLE_P (obj))