Mercurial > emacs
diff src/print.c @ 17325:c19c552c486f
(read1): Adjusted for the new structure of Lisp_Char_Table.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 07 Apr 1997 07:12:13 +0000 |
| parents | ed068c0c1648 |
| children | 0c38918fbf13 |
line wrap: on
line diff
--- a/src/print.c Mon Apr 07 07:12:13 1997 +0000 +++ b/src/print.c Mon Apr 07 07:12:13 1997 +0000 @@ -1258,6 +1258,8 @@ character slots. But we add #^ as a prefix. */ PRINTCHAR ('#'); PRINTCHAR ('^'); + if (SUB_CHAR_TABLE_P (obj)) + PRINTCHAR ('^'); size &= PSEUDOVECTOR_SIZE_MASK; } if (size & PSEUDOVECTOR_FLAG)